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Preface 



The personal computer field was already brimming with excitement when 
the Commodore PET® entered the scene in late 1977. A minimum PET system, 
housed in a self-contained unit with custom keyboard, video display, and tape 
cassette, cost just $595. 

The PET was an immediate sales success. Many thousands of units have 
been sold, and PET user groups are springing up all over. 

The PET has surely become famous as one of the first popular personal com- 
puters. It has also become widely known — indeed infamous — as having the 
most meager literature a user has ever had to face. That is why this book has been 
written. 

After reading this book you will have a good understanding of what a per- 
sonal computer — especially the PET — can be expected to do for you. Certainly 
as important as knowing what you can do with a personal computer is knowing 
what you can't do. By examining the capabilities and limitations of the PET, you 
will have a grasp of what you can realistically expect a personal computer to do 
for you — which is important if you have a personal computer, or you are thinking 
of getting one. 

There are numerous programming examples throughout this book; by 
reproducing these examples you will quickly get your PET working. These exam- 
ples are thoroughly described and documented so you can learn how and why the 



programs work. It is the "how" and the "why" that are important if you want to 
learn how to make your PET work efficiently for you. 

This book is a complete guide to the use of the PET computer. 

Chapter 1 is a general introduction to the personal computer and BASIC 
language. 

Chapter 2 describes how to operate the PET keyboard, display screen, and 
magnetic tape cassette unit; it also describes rudimentary troubleshooting tech- 
niques. 

Chapter 3 introduces you to BASIC, the programming language of the PET. 

Chapter 4 is an alphabetical reference of PET BASIC commands, statements, 
and functions. 

Chapter 5 describes "features" and programming quirks of the PET — and 
how to get around limitations of PET BASIC. You will find this chapter highly 
useful in understanding your PET and how to really go about programming it. 

Chapter 6 contains useful system information and describes such tech- 
niques as how to execute assembly language programs under PET BASIC. 

A summary of reference material is contained in appendices to the book. 

The chapters are divided, roughly, into three technical levels, as follows: 

1 . If you are a novice who wishes to use pre-written programs, you can get 
by with the loading and editing techniques described in Chapter 2. 

If you find using the PET to be a lot of fun at this stage, and you 
want to learn more about computers, a recommended book is An 
Introduction to Microcomputers: Volume — The Beginner's Book, 
Osborne/McGraw-Hill, 2nd Edition, 1979. 

2. If you are a beginning programmer, and you want to write your own pro- 
grams in PET BASIC, then Chapter 3 will get you started. In addition, 
detailed descriptions of individual BASIC statements are given in 
Chapter 4. 

3. You will probably find that your programs occasionally do odd things. 
These peculiarities are accounted for in Chapter 5 — necessary reading 
for the advanced programmer. In Chapter 5 you will find coverage of 
topics such as Extended Precision Arithmetic and File I/O. The system 
information in Chapter 6 is written for experienced programmers who 
need to know about PET's memory layout, for example, so you can write 
assembly language subroutines to be run under PET BASIC. 

Interfacing the PET to external devices is such a large topic in itself that a 
separate book is devoted to it. This Personal Computer Guide concerns itself only 
with the PET keyboard, display screen, and magnetic tape cassette unit, the latter 
either built-in or provided externally. See the references listed in Appendix E for 
sources of interfacing information on other peripheral input/output devices 
available for the PET. 




"There's a new PET in the House" 
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HOW THIS BOOK HAS BEEN PRINTED 

Notice that the text in this book has been printed in boldface type and 
lightface type. The boldface type is used to highlight the key points discussed in 
this book. The lightface type expands on information presented in the previous 
boldface type. Therefore, read the lightface type if you wish to know more about a 
subject presented in boldface type. 



CHAPTER 1 



Introducing the PET 



The Commodore PET is a low-cost personal computer housed in a self- 
contained unit, with keyboard, video display screen, and built-in or external mag- 
netic tape cassette unit. The PET is portable and can sit on a desk or tabletop. 
Moreover, the PET operates on normal household current and uses high quality, 
but still inexpensive, magnetic tape cassettes to store information in a computer- 
readable form. The PET is powered up simply by plugging it in and turning it on. 

COMMUNICATING WITH THE PET 

Whenever you power up the PET, you activate its BASIC* "in- 
terpreter." The BASIC interpreter is a computer program that is permanently 
built into every PET. The PET BASIC interpreter carries out orders you give it by 
typing in commands at the PET keyboard. It allows you to start programming your 
PET as soon as you turn the power on. 

You can command the PET to load a program from a tape cassette, list the 
program, execute the program, and perform a number of related chores. You can 
also type in your own programs at the PET keyboard, edit them, run them, and 
store them on tape cassettes. 

'BASIC is a registered trademark of the Trustees of Dartmouth College. 



ROM AND RAM 

The BASIC interpreter is held in a type of memory called "Read-Only 
Memory" (otherwise known as ROM). ROM will keep its information 
forever, whether electric power is turned on or off. Read-Only Memory, and 
the information it holds, thus becomes a permanent part of your PET's electronics. 



THO' MOST PROfrRA/v\5 
ARE. BUT EPHEMERAE, 

You'll ever grace 
MY READ-ONLY MEMORY! 




In contrast, a program loaded from a tape cassette, or input from the 
keyboard, is placed into Read/Write Memory (otherwise known as RAM). 
Any information stored in RAM is lost when the PET's power is turned off. 

That is why you need a cassette unit (or similar device) to store programs that you 
want to keep and use again and again. 



BASIC PROGRAMMING 

A host of pre-written programs is available on tape cassettes that you 
can load into memory and execute simply by pressing a couple of keys on the 
PET. Some of the programs that you can get are listed below. Some sources of 
pre-written PET programs are listed in Appendix E. 



Address Book 

Air-Sea War 

Alphabetizing 

Baseball 

Battleship 

Biorhythm 

Blockade 

Calendar 

Checkbook 

Check Writer 

Chemistry Drills 

Computer Art 

Craps 

Cryptograms 

Depth Charge 

Dogfight 

Editor 



ESP Test 

Football 

Foreign Language 

Golf 

Hangman 

Home Accounting System 

Hostage 

Investment Analysis 

Inventory 

Kite Fight 

Life 

Lunar Lander 

Maze 

Memory Test 

Othello 

Personal Ledger 

Poetry 



Poker 

Pong 

Racetrack 

Recipe File 

Rhyming 

Road Rally 

Schedule Planner 

Spelling 

Star Trek 

State Capitols 

Stock Portfolio Analysis 

Tic-tac-toe 

Unlist 

Vocabulary 

Wallpaper 

Wumpus 

Yahtzee 



In addition to buying programs, you can also write your own programs 
in the BASIC language, to be developed and executed on the PET. 

"BASIC", Beginners All-purpose Symbolic Instruction Code, was developed 
at Dartmouth College in 1963. It is one of the most popular computer languages, 
particularly favored by beginning programmers because it is easy to learn and 
easy to use. PET BASIC is a variation of Dartmouth BASIC. 

A word of caution here: if you have never programmed before, do not be 
misled into thinking that with your personal computer you will have your menus, 
personal calendar, Esperanto concordance, and FBI agent file all safely stored and 
working in a few hours! There are real limitations to the PET — or any personal 
computer — as this book points out. Even with the best of languages and the 
most expensive of systems, writing useful, error-free programs is a real challenge. 
But if you have a bent for programming, and you will have a good idea whether 
you do or not after reading this book, you will find writing your own programs for 
the PET to be an exciting, rewarding pastime. 

PET MODELS 



The first PETs were available with a compact, custom graphics keyboard 
and built-in tape cassette unit, as shown in Figure 1 -1 a. Additional PET models 
are now available that have full-size keyboards. The tradeoff for these full-size 
keyboards is that the tape cassette unit must be connected externally. The full- 
size "graphics" keyboard is shown in Figure 1 -1 b. The CBM (Commodore Busi- 
ness Machine), a PET that has a full complement of small-business programs, and 
that also functions as a word processor, is shown in Figure 1 -1 c. 



a. PET with compact graphics keyboard 
and built-in tape cassette unit 




/ 



c. CBM, or Business PET 



Figure 1-1. Three Models of the Commodore PET 



FEATURES 

All PET models are housed in very similar cabinets and have a similar set of 
specifications, as listed in Appendix H. The only differences that you need to be 
concerned with in using this book are: 

1 . Whether your PET has the original ROMs, also called "old" ROMs, which 
are Revision Level 2; or the newer ROMs, which are Revision Level 3. 

The newer ROMs eliminate problems that were encountered with the original 

ROMs. 

You have Revision 2 ROMs if your PET powers up with the first line printed as: 

***COMMODORE BASIC*** 

You have Revision 3 ROMs if your PET powers up with the first line printed as: 

###COMMODORE BASIC### 

If you have the old ROMs, read carefully Appendix G, "Variations for Original 
ROMs (Revision Level 2)." This appendix delineates every change you will 
have to make, chapter by chapter, to use this book with the old ROMs. The 
changes are not extensive. The rest of this book assumes that you have the 
newer ROMs. 

2 Whether your PET has the compact keyboard or one of the full-size 
keyboards. This book is written for all PET keyboards, and differences, where 
they exist, are clearly spelled out. 

3. How much memory your PET has. Your PET may have 4K, 8K, 16K, or 32K 
bytes of memory. This is Read/Write Memory (RAM): all PETs have the same 
amount of Read-Only Memory (ROM). A "K" is, roughly, one thousand. A 
"byte" is the standard unit of memory storage in the PET: each byte can hold 
one character of data. 

The more memory your PET has, the longer the programs and the larger 
the amounts of data it can handle at one time. However, this is not an opera- 
tional difference and is not important in learning how to use the PET. You only 
need to be aware of the memory size for the few references to the "top of memo- 
ry," whose value will depend on how much RAM is implemented in your PET. 



CHAPTER 2 



Operating the PET 



This chapter tells you how to operate the PET keyboard, use the screen dis- 
play, and work with the magnetic tape cassette drive. After reading this chapter, 
you will be able to load and use pre-written PET programs stored on tape 
cassettes. 

The primary external features of the PET are shown in Figures 2-1 and 2-2. 
The Model 2001-8 in Figure 2-1 a has a compact keyboard and built-in tape 
cassette unit. The 2001-16, 2001-32, and CBM models have front panels as 
shown in Figure 2-1 b with a full size keyboard and separate tape cassette unit. 
The back view is the same for all units and is shown in Figure 2-2. 

UNPACKING 

Assuming you have just brought your PET home in a box, you must unpack 
it The PET is packed in protective material, inside a heavy-duty cardboard box. In- 
spect the box for any evidence of shipping damage. Carefully open the box and 
remove the PET. Place the PET on a sturdy, level surface such as a table or desk 
top. Inspect the unit for any evidence of shipping damage. Report any apparent 
damage to the shipping agent, or to the dealer from whom you purchased the 
PET. Read any special material enclosed in the box; be sure to complete the war- 
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Figure 2-1 a. Front View of Compact Keyboard PET 

ranty information. Save the box and packing material — you may need to ship 
your PET back to the factory for repairs at some time, or transport it to other loca- 
tions. 



CASSETTE HOOKUP 

On full size keyboard PETs, the cassette tape unit is separate and must 
be connected to the PET unit. Unpack the cassette unit and place it on the desk 
or table top within easy reach of the PET. The cassette unit terminal plug is tailor- 
made to fit the PET cassette port (2nd Cassette Interface J3 as shown in Figure 
2-2). Connect the plug to J3 on the PET. securely seating it. 
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KEYTOP FILM COVERING 

On a new PET with a compact keyboard, each key is covered with a protec- 
tive plastic film which you must remove before using the keyboard. It is recom- 
mended that this film be removed by pressing a piece of masking tape over each 
key, sticky side down. Then lift up the masking tape, bringing the plastic film off 
the key with the tape. The keytop lettering can be scratched off, so be careful. 

You can protect the keytops so that letters are not erased by applying a coat 
of clear nail polish or similar protective coating to the keytops. 

This procedure is not required on the full size keyboard. 
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Figure 2-2. Back View of PET 



STARTUP 



1. Plug the PET in. Plug the three-prong power plug into a standard 
grounded electrical outlet. DO NOT ATTEMPT TO PLUG THE CORD 
INTO A TWO-HOLE (UNGROUNDED) OUTLET. DO NOT ATTEMPT TO 
REMOVE THE GROUND PRONG. If the unit is not properly grounded, 
you may receive an electrical shock. Grounding adapters that convert a 
two-prong outlet into a three-prong (grounded) outlet are available from 
your hardware store or electrical supply house. 

CAUTION: Do not use a three-prong adapter unless you ground it 
properly when installing it. 

2. Switch power on. The power switch is located on the back of the PET, 
at the left side (see Figure 2-2). It is a two-position "rocker" switch. 
Pressing on the outer side of the switch turns power on; pressing the in- 
ner side of the switch turns power off. A white dot shows on the side of 
the switch when power is on. 



10 



3. Wait for READY display. About three seconds after switching power 
on, the following message is displayed on the screen: 

### COMMODORE BASIC ### 

XXXX BVTES FREE 
RERBV. 



XXXX BYTES FREE 



The four lines of display have the following meanings: 

###COMMODORE BASIC### This line indicates that the PET BASIC in- 
terpreter has been activated. 

This line shows how much memory is avail- 
able to you. 

3071 (or a similar number) will be displayed 
for a 4K PET system. 

7167 (or a similar number) will be displayed 
for an 8K PET system. 

15359 (or a similar number) for a 16K PET 
system. 

31743 (or a similar number) for a 32K PET 
system. 

The PET is ready to receive input from the 
keyboard. 

85 The flashing cursor is displayed at the position 

on the screen where the next character typed 
in from the keyboard will appear. The cursor 
must be present in order to enter commands 
from the keyboard. 

If you do not get the display illustrated above after turning power on. then 
turn power off, wait a few seconds, and turn power back on. The display will first 
be filled with random characters for a second or so. This is normal: just ignore it. 
The random character display will appear whenever the PET is turned off and then 
on again within about ten seconds. 



READY. 



KEYBOARD 

The PET keyboard is used to enter programs and commands. The type of 

keyboard depends on which model PET you have. The same keys are present on 
both compact and full size keyboards, with the exception that the full size 
keyboard has a shift lock key. However, the locations of some of the keys are 
different. 
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The keyboard layouts are introduced separately below, followed by a com- 
mon description of the individual keys. If you have the full size keyboard, read the 
description below and then skip to the section titled "PET Key Groups." If you 
have the compact keyboard, skip the next section and begin reading at the sec- 
tion titled "Compact Keyboard." 

Full Size Keyboard 

The full size "graphics" keyboard is illustrated in Figure 2-3. The CBM 
keyboard is very similar in layout, but the graphic symbols are not printed on the 
keys. If you have a CBM, use Figure 2-3 and Table 2-2 to locate graphic symbols 
on the CBM keyboard. 



amSHaHHHQraHHEQ 



® 



SI 



a 



® 



fol 



aaa 



®a® 



B 



® 







SEE 



RUN 

STOP 



gHHHEBQEDEI 



HOME 


CRSRi 


PB] 

CRSR 


(inst] 
[del] 


a 


® 


a 





a 


® 


a 


B 


a 


® 


a 


B 


H 


□ 


B 


B 



Figure 2-3. Full Size PET Keyboard 

The keyboard consists of 74 keys, most of which have an upper shift and a 
lower shift. Two symbols or operations are shown on the same key. Most of the 
upper shift symbols are graphic keys. For these keys, the larger top imprint is for 
unshifted mode, and the graphic symbol is shown on the front side of the key. For 
non-graphic keys both operations are shown on the top imprint, the upper one 
being for shifted mode and the lower one for unshifted mode. SHIFT, SHIFT LOCK, 
the SPACE bar, and RETURN are exceptions. 

The letters are arranged like those of a typewriter and, to the right, the num- 
bers are organized into a numeric pad similar to that of an adding machine or 
calculator. (The number "5" on the CBM has a raised dot to locate it by finger 
touch.) Those familiar with a typewriter keyboard should feel comfortable with 
this full size PET keyboard. Where possible, the special symbols are placed where 
they normally reside on a typewriter keyboard. 

One feature of the PET keyboard is that the letters (A-Z), numbers (0-9), and 
special symbols (*, %, #, etc.) are all typed in unshifted mode. These frequently 
used characters are thus readily accessible. 
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The PET has two character sets. The "standard" character set has 
capital (upper case) letters typed in unshifted mode, and the shifted mode 
prints the graphic characters. The "alternate" character set gives upper and 
lower case letters but eliminates some graphic characters. If you have the 
graphics keyboard, the standard character set is active whenever the PET is 
powered up. If you have the CBM, however, the alternate character set is ac- 
tive on power-up. The selection of standard or alternate character set is deter- 
mined by the value contained in a particular system location that you can change. 
This feature is described in detail in Chapter 5. For now, if you have the CBM, type 
in the following statement: 

POKE 59468,12 

This activates the character set with graphics on CBM units. Unless stated 
otherwise, this book assumes that the graphics character set is being used. 

In the following key descriptions, and throughout this book, individual keys 
from the keyboard are illustrated. To avoid confusion, we have used keys from just 
one type of keyboard — the compact keyboard. You will find these keys virtually 
identical to the legends on the full size keys. Thus you should have no trouble 
recognizing which key is intended on your full size keyboard when you see the 
corresponding key from the compact keyboard. 

Compact Keyboard 

The compact keyboard is illustrated in Figure 2-4. 




Figure 2-4. Compact PET Keyboard 
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The compact keyboard consists of 73 keys, most of which have an upper shift and 
a lower shift. Two symbols or operations are shown on the same key; the top one 
is for the shifted mode and the lower one is for the unshifted mode. SHIFT, 
SPACE, and RETURN are the exceptions. 

The letters are arranged like those of a typewriter. To the right, numbers are 
organized into a numeric pad similar to that of an adding machine or a calculator. 
For those familiar with a typewriter keyboard, there are some real differences be- 
tween the typewriter keyboard and the compact PET keyboard.: 

1. This PET keyboard is more compact than a standard keyboard. Because 
of this, as well as the need to frequently access the numeric pad keys, 
you will find it difficult to "touch type" on the compact PET keyboard. 

2. The standard character set has upper case letters only; they are typed in 
unshifted mode. The PET keyboard is arranged so that all letters, num- 
bers, and special characters (+, -, %, etc.) are typed in unshifted mode 
so that these most frequently used characters are readily accessible. 

3. There is no shift lock on the PET shift keys. To type upper case charac- 
ters or controls, you need to hold down the shift key, while at the same 
time pressing the desired character or control key. 

KEYBOARD ENTRY 

Before proceeding with the individual key descriptions, we digress here for a 
moment to introduce several important concepts related to keyboard entry. 

Perhaps the major difference between a PET keyboard and a typewriter 
keyboard results from the presence of the BASIC interpreter within the PET. 
The BASIC interpreter can process the same keystroke in completely 
different ways depending on the context of the keystroke. 

When you press a typewriter key, you type a character — nothing more and 
nothing less. Under the correct circumstances, the PET, like a typewriter, will in- 
terpret a keystroke as one character of text. We refer to such text as a "string," 
because to the PET it is a string of text characters. 
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Variables 

Under some circumstances the BASIC interpreter will treat a keystroke as 
part of a BASIC statement. Or the keystroke may become part of a "symbol" or 
variable name. We use the word "syntax" to describe the rules governing the 
form that BASIC statements must have and the way characters within the BASIC 
statement will be interpreted. 

77 is a "symbol"; it represents the value 3.14159265. the circumference of a 
circle divided by its radius. 

The concept of a "symbol" or "variable" is fundamental to all computer pro- 
grams, whether they are written in BASIC or in any other programming language. 
You create variable names by grouping letters and/or other characters, according 
to specified rules. Each variable becomes an entity, capable of representing infor- 
mation. The information may be a number or a word of text. You may liken varia- 
bles to letter boxes, each of which has a name, but can contain whatever you 
choose to put into it 

The information represented by a variable name may be a string of text, an 
integer, or a floating point (real) number. If the last character of the variable name 
is %, the variable can represent only integers. If the last character of the label is $, 
the label can represent only strings. If the last character of the label is neither % 
nor $, then the label can represent only floating point numbers. 

Until a program assigns a value to a variable name, the variable is assumed 
to have a value of for a number, or no characters at all for a string. 

PET KEY GROUPS 

The PET keys can be divided into the following groups: 

Alphabetic keys 
Numeric keys 
Special symbols 
Graphic keys 
Function keys 
Cursor control keys 
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Alphabetic Keys 





The alphabetic keys provide the 26 letters of the alphabet. A to Z. These are 
upper case (capital) letters when used with full graphics. A lower case alphabet is 
available with the alternate character set (see Chapter 5). 



Numeric Keys 



CLR 
SCREEN 
HOME 


A 

CURSOR 


<= 

CURSOR 

. => 


INST 
DEL 




7 


H 
8 


H 
9 






1 4 j 


D 
5 


I 






a 
l 


H 
2 


51 


+ 







E 


Q 


' Ej ' 





The numeric keys provide the digits 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9. All num- 
bers input to PET BASIC are decimal numbers (the kind you use every day) such 
as 3, -14, 10.5. 

The 77 key (upper shift of " ) could also be considered a numeric key (or a 
special symbol), but since it represents a multidigit number and has some special 
characteristics, it is described below under function keys. 
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Special Symbols 




Special symbols, or special characters, have two general uses: 

1. They may represent standard punctuation marks or commonly used 

symbols. For example, there is a period, a comma, arithmetic opera- 
tions (+ for addition, - for subtraction, etc.), and other characters that 
have widely recognized interpretations, such as "$" for dollar sign. 

2. These same characters may at other times represent a specific opera- 
tion or be part of a BASIC statement. Remember, we use the word 
"syntax" to describe the special rules governing the characters that 
must appear in a BASIC statement and the order in which they must ap- 
pear. 

Thus, the same symbol means different things when used in different 
contexts. Some English words, called homonyms, also have this property. For ex- 
ample, pool can be a pool of water or a game of pool. 

Consider the following PET BASIC statement: 

IF A = 1 THEN B=2 

This BASIC statement uses the equal sign (=) twice, apparently with the 
same meaning in each case. But these two equal signs actually mean different 
things to PET BASIC. The first equal sign, in the phrase IF A=1, has a standard 
meaning of equality; PET BASIC must determine whether A has the current value 
of 1. In the second phrase, THEN B=2, however, the equal sign in interpreted as 
"assign B the value of 2, regardless of what its current value is." These equal 
signs are called "program operators." A program operator is a special symbol that 
tells PET BASIC to perform a certain operation. 

Note that "A" and "B" have been used as variables; each is a "name" 
assigned to a "letter box." The BASIC statement above checks to see if letter box 
"A" contains 1; if it does, 2 gets put into letter box "B". 
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Special symbols can also be used as data characters, just like letters of 
the alphabet. Consider the following examples: 

Statement 1: PRINT "HI FRED. MARY, AND AL" 
Statement 2: PRINT FR. MA. AL 

In the first statement, the commas are ordinary punctuation marks; they are 
data characters just like all the letters (and spaces) inside the quotation marks. In 
fact, every character occurring between the quotation marks is a simple text 
character, which the BASIC interpreter treats as a text string, just as a typewriter 
would treat a keystroke. In statement 2, however, the commas are program opera- 
tors; they are telling PET BASIC to use a special form of tabular alignment when 
printing out values assigned to variables FR, MA, and AL. 

Table 2-1 summarizes the meanings of the special symbols when they 
are used as program operators. These usages are described in detail in Chapter 
3. 

Some of the special symbols do not have a program operator function. Such 
symbols are merely graphic characters; they are used to create pictures on the 
display screen. Some program operators are formed by combining special sym- 
bols and/or letters of the alphabet just as you combine letters into words. We will 
describe these program operators later. 

Special symbols and letters of the alphabet can have different meanings, de- 
pending on where they appear in a BASIC statement. The word PRINT, for exam- 
ple, is the part of a BASIC statement that tells the PET to print something. If the 
same word were enclosed in quotes, it would be interpreted as a word of text. 
Consider the at-first confusing statement: 

PRINT "PRINT" 

The first PRINT is a command to print, but the second PRINT is a word of 
text, or a string, because it is enclosed in quotes. What would this statement do? 
You have probably already guessed — it would print the word PRINT. (The 
shaded portions in the screen examples show what you type in; the 
unshaded portion is the PET's response): 

PR I NT "PR I NT" 
PRINT 

PET BASIC doesn't just have homonyms — the same word having different 
meanings; it also has synonyms — different words that have the same meaning. 
For example, the command PRINT can be abbreviated to a question mark. 

?"PRINT" 
PRINT 
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Table 2-1. Special Symbols as Program Operators 



Symbol 


Description 


Program Operator Use 


Example 




Space 


To improve program legibility; dis- 
regarded by PET BASIC except in 
strings 


100 READ Y 

i i 


! 


Exclamation mark 


(none) 




" 


Double quotation mark 


Begins and ends a string 


"STRING" 


# 


Pound sign 


(none) 




$ 


Dollar sign 


Denotes string variable 


C$ 


% 


Percent sign 


Denotes integer variable 


C% 


& 


Ampersand 


(none) 




' 


Single quotation mark 


(none) 







Parentheses 


1. Enclose array subscripts 

2. Enclose function arguments 

3. Denote expression 
evaluation precedence 


AR(1,5) 

SQR(114) 

((A+2)/5)T2 


# 


Asterisk 


Multiplication 


4*16 


+ 


Plussign 


Addition, positive number 


2+2 +57 


' 


Comma 


1. Separates items in a list 

2. Denotes tabbed format 


READ A,B,C 
PRINT X,Y,Z 


- 


Minus sign 


Subtraction, negative number 


14-6 -32 




Period 


Decimal point 


65.02 


/ 


Slash 


Division 


14/2 




Colon 


Separates multiple statements 
on a line 


PRINT A:GOTO 10 


; 


Semicolon 


Denotes continuous-line format 


PRINT A;B;C 


< 


Left carat 


Less than 


A<100 


= 


Equal sign 


1. Equal to 

2. Replaces 


IFA=B 
C=600 


> 


Right carat 


Greater than 


C>D 


7 


Question mark 


Abbreviation for PRINT 


?"HI!" 


@ 


At sign 


(none) 




[] 


Brackets 


(none) 




\ 


Backslash 


(none) 




1 


Up arrow 


Exponentiation 


At2 


~ 


Left arrow 


(none) 
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Graphic Keys 

The PET keyboard contains 62 graphic keys. All are the shifted mode of data 
keys. With so many graphic characters available on the PET, you can create some 
rather sophisticated display drawings. 




The graphic characters are listed in Table 2-2; each is given a name 
They are grouped by similarity of line, so that you can get some idea of the sets of 
design components available when creating graphic displays. The entire key is 
shown in the table to help you locate keys. Note that the square enclosing the 
graphic symbol is not part of the symbol; it is used merely to show the sym- 
bol's location within a grid space. 
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Table 2-2. Graphic Character Keys 



Line 
Horizontal 



□ I 
# 



H 
E 



B 
D 



B 
LCJ 



B 



B 
F 



B 
R 



$ 



Top 



3/4 Top 



2/3 Top 



Middle 



Near 
Middle 

2/3 
Bottom 

3/4 
Bottom 



Bottom 



Line 
Vertical 



□ 
% 



D 
T 



D 
G 



m 

B 



m 

3 



H 



□ 
Y 



□ 



Left 



3/4 Left 



2/3 Left 



Near 
Middle 



Middle 
2/3 Right 
3/4 Right 
Right 



Thin 
Bar 



n 

7 



u 



c 

4 






Top 



Bottom 



Left 



Right 



Thick 
Bar 



H 
8 



H 
9 



B 
5 



3 

6 



Top 



Bottom 



Left 



Right 



Half 
Block 



D 



B 
// 



Left 



Bottom 



Triangle 
Solid 



E 
) 



a 



Top Left 
Top Right 



Quarter Block 
Solid 



n' 
. > . 


'a" 
. < . 


E 


a' 


r 
i J 


r 




Quarter Block 
Open (Angle) 


IT 


B' 


• 
- 






Top Left, 
Top Right 

Bottom Left, 
Bottom Right 

Diagonal 


H 

1 1 . 

2 

'ED' 
3 




' LB 
+ 



Top 



Bottom 



Left 



Right 



Top Left, 

Top Right Symbo | 



Corner 

©ID 



Rounded 
Corner 



Bottom Left, 
Bottom Right 

Top Left, 
Top Right 

Bottom Left, 
Bottom Right 


v 

EB 
, l , 

f Z 
N 

'S' 



Cross 



Diagonal 
Acute 

Diagonal 
Grave 



Grid 








a 
i 


Top Left, 
Top Right 


■ 


Full 






'h 


Bottom Left, 
Bottom Right 


D 
\ 

- 
( 


Half 
Left 

Half 
Bottom 



Suit 



Circle 



LULU 
LULU 



Spade, 
Heart 

Diamond, 
Club 



UL 



w 



Solid 



Outline 
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Function Keys 




[ CLR 
SCREEN 

[home 


CURSOR 

. v 


C: | 

CURSOR 

,=> J 


[inst] 

IgfjJ 






(9; 


H 
i 8 J 


II 


HI 


f c 

i 4 j 


E 


3 1 
1 6 J 


SI 


s 


L2J 


® 


© 


s 


• 


© 


gjl 











SHIFT. The SHIFT key is pressed simultaneously with any of the other 
keys to give the shifted character of that key. All PET keys have different 
characters for shifted and unshifted modes, except the SPACE and RETURN keys. 
The SPACE key generates a blank or space in either mode. The RETURN key pro- 
vides a carriage return in either mode. On all two-character keys, the lower sym- 
bol is the unshifted one and the upper symbol is the shifted one. 

There are two identical SHIFT keys located on the main keyboard, one at the 
lower left and one at the lower right. 

SHIFT LOCK (full size keyboard only). Full size PET keyboards have a SHIFT 
LOCK key located directly above the left-hand SHIFT key. Pressing the SHIFT 
LOCK key until it "clicks" into place holds SHIFT down so that both hands are free 
to type in shifted mode. To release the SHIFT LOCK key, press and release the 
SHIFT LOCK key; both SHIFT keys return up to their unshifted position. 

RETURN. The RETURN key is the equivalent of a carriage return on a 
typewriter; when depressed, it causes the cursor to move to the beginning of 
the next line on the screen. 

When you enter a BASIC statement, the statement line can have up to 40 
characters (one display line) or up to 80 characters (two display lines). When you 
are first entering a statement line, you type in the characters and terminate the 
line by pressing the RETURN key. If you type in 40 or more characters without 
pressing RETURN, the cursor automatically drops down to the next display line, 
and you can continue entering up to 80 characters. If you continue typing onto a 
third line, however, the PET will give you a SYNTAX ERROR as soon as you press 
RETURN. 

You must depress the RETURN key in order to terminate every line of 
BASIC input. The PET uses the RETURN character as a signal that the current line 
is complete and ready to analyze. The "current" line is defined as the line on 
which the cursor is located, regardless of how many lines may be displayed on 
the screen. 
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A RETURN given anywhere on the last line of the screen causes all of 
the screen text to move, or scroll, up one line. The top line rolls up off the 
screen and a blank line rolls into the bottom line of the screen, with the cursor left 
at the beginning of the blank line. 



Line 
1 



24 
25 



Before RETURN 



10 ?"HOW IS THE TIME" 

20 ?"FGR FILL GOOD PEOPLE" 

30 READ HZ 



9U H=B+C-TJ 

lee if ft=i goto ie; 



After RETURN 

ne scrolled off screen 



?"FOR ALL GOOD PEOPLE" 
30 REPlD X2 



Cursor 




90 Fl=E+C-n 

100 IF (=1=1 GOTO 10 



Cursor 
Blank line scrolled in 



PI M. Pi M is a circle's circumference divided by its diameter, n has its 
own key on the PET computer. When this symbol is used, alone or in an expres- 
sion, PET replaces it with the value 3.14159265. 

?1T 

3. 14159265 

The only time it is not evaluated as its preassigned number is when it ap- 
pears within quotation marks. Then it is treated as a graphic character — a part of 
a string. 



REVERSE ON/OFF. The Reverse key allows you to reverse the black 
and white parts of characters; REVERSE is like a photograph and its nega- 
tive. The normal mode of this key is "off." To activate the REVERSE key, press it in 
unshifted mode. The next character keys you press will be displayed in reverse 
field. REVERSE ON stays in effect until you either press REVERSE OFF (the 
REVERSE key shifted) or press the RETURN key. 

FtBC'!ia«REC 

t, 



r 1 



RVS ON . 1 I RVS OFF 



Note: Reverse field terminated 
by carriage return 
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You can also program the REVERSE key inside quotation marks. In this case, 
the reverse field is not shown until the display is printed. 

RVS ON RVS OFF 

I I 

?"flBCSlRBC»BC" 

RBC'SliMflBC 

The REVERSE key has another function unrelated to reverse 
fields: depressing the REVERSE key during rapid scrolling slows down the scroll 
speed. 

RUN/STOP. STOP is the unshifted half of the RUN/STOP key. STOP stops 
execution of any current operation and puts you back in touch with PET BASIC, 
reconnecting it with the keyboard. 

FOR 1=1 TO 1O0 ? I NEXT I 
1 



10 

11 
12 
13 
14 
1 5 -, Press STOP key 

BREAK 
REfiDV. 
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If you stop a program in mid-execution, you will get a message telling you 
where in the program you stopped. "Where" becomes a number which identifies 
the last BASIC statement that was executed. This may be illustrated as follows: 



106 FOR 1^1 TO 100 
110 ?I 
1.20 NEXT I 
RUN 
1 



10 
11 

1 2 -" Press STOP key 

BREAK IN HO 
REflDV. 

The STOP key does nothing if there is nothing to stop, i.e., the PET is 
READY. 

RUN is the shifted half of the RUN/STOP key. RUN causes the next pro- 
gram on the cassette unit to be located, loaded into memory, and then im- 
mediately executed. The display below shows what you will see if you "RUN" 
the small program illustrated above. 
REflDV. 



- Press RUN key. Cursor is replaced by: 



LOAD 



PRESS PLflV ON TAPE #U Press PLAY 

OK 

SEARCHING 
FOUND 

PROGRAM 1 TO 10 
1 



■ Running program printout 



■ STOP or RUN here causes a break 



BREAK IN 110 
RE ADV. 
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To perform its "load & go" function, RUN must be pressed when the 
PET is READY; if it is pressed while another program is executing, it acts like 
a STOP. Using the RUN key is a quick way of running the next program stored on 
the cassette you have in the PET cassette drive. 

Cursor Control Keys 

The remaining four function keys are cursor control and edit keys. They are 
grouped together as the top row on the numeric pad. 



CLH 1 
SCREEN 
[homtj 


f a 

Lv J 


. ~-3 ) 


flNST 

[del] 


I" 1 


a 


® 


'- 


m 


m 


l6j 


m 


m 


m 


ffl 


m 


fra~| 


m 


m 


m 



CLEAR SCREEN/HOME. HOME is a cursor control key that moves the 
cursor to its "home" position, the upper left-hand corner of the screen. Any 

subsequent keyboard entry will be displayed at this position. You "home" the cur- 
sor by pressing the CLEAR SCREEN/HOME key in unshifted mode. 



Before HOME 



After HOME 



60 QT=QT+ft 

78 NEXT X 

89 CLOSE 1 

98 END 

1600 POKE 59411.. 53 

1010 T=TI 

1020 IF CTI-TX10 GOTO 1026 

1030 POKE 53411,61 

1040 GT=OS* 




r S0 QT=QT+R 
70 NEXT X 
80 CLOSE 1 
90 END 

1000 POKE 59411,53 
1010 T=TI 

1020 IF (TI-TK10 GOTO 1020 
1 030 POKE 534 1 1 , 6 1 
1040 QT=0 



Cursor here 



Cursor homed 
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CLEAR SCREEN, obtained by pressing the CLEAR SCREEN/HOME key in 
shifted mode, not only homes the cursor but also clears, or blanks, the entire 
display screen. 



Before CLEAR SCREEN 



After CLEAR SCREEN 



60 QT=QT+fl 

70 NEXT X 

80 CLOSE 1 

90 END 

1008 POKE 53411,53 

1010 T=TI 

1028 IF <TI-T><10 GOTO 1020 

1030 POKE 59411,61 

1040 QT=0 





Cursor here 



Cursor homed, screen blanked 



CURSOR UP/DOWN. CURSOR UP, obtained by pressing this key in shifted 
mode, moves the cursor up one line within the same physical column of the 
screen. When the cursor is at the top line of the screen, CURSOR UP has no effect. 
The cursor moves over characters without changing them. 

Cursor up 
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CURSOR DOWN, obtained by pressing this key in unshifted mode, moves 
the cursor down one column. Unlike CURSOR UP, CURSOR DOWN can move the 
cursor down "infinitely"; if the cursor is at the bottom line of the screen and you 
press the CURSOR DOWN key, the cursor itself is not moved, but the rest of the 
screen is moved, or scrolled, up one line. This has the net effect of moving the cur- 
sor down one line to a blank line. 

Cursor down 



t Blank lines scrolled onto screen J 
■ when cursor is at bottom line ■ 



If you rapidly press and re-press the cursor control key as fast as you can, 
the cursor moves several positions between cursor blinks; this is because cursor 
movements can be processed faster than cursor blinking. But each key depression 
in fact moves the cursor one position, even when this is not reflected by the cur- 
sor blinking. 

CURSOR LEFT/RIGHT. CURSOR LEFT, obtained by pressing this key in 
shifted mode, moves the cursor left one position within the same horizontal 
row. Multiple pressing of the CURSOR LEFT key rapidly moves the cursor left. 
When the cursor is at the beginning of a row, pressing the CURSOR LEFT key 
moves the cursor up one row and to the extreme right-hand end of this row. But 
the cursor stops at the home position; pressing the CURSOR LEFT key has no 
effect if the cursor is in its home position. The effect of the the CURSOR LEFT key 
may be illustrated as follows; 
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CURSOR RIGHT, obtained by pressing this key in unshifted mode, moves 
the cursor right one character position within the same row. As with CURSOR 
LEFT, CURSOR RIGHT wraps the cursor around the screen. But CURSOR RIGHT 
moves the cursor to the beginning of the next line down when the cursor is at the 
extreme right-hand end of a line. When the cursor reaches the end of the bottom- 
most row on the screen, the screen scrolls up one line so that the cursor appears 
at the beginning of the next, blank line. Scrolling continues indefinitely until all 
text has scrolled off the top of the screen; then the cursor appears to move to the 
right circularly along the bottom row of the screen. 



Blank lines scrolled onto screen 
when cursor moves off bottom right 

You use CURSOR LEFT/RIGHT to type over text while editing it. This is 
equivalent to backspacing and striking over on a typewriter; but PET strikeover 
replaces the previous character, rather than trying to blot it out. Suppose you 
have typed: 

NOW IS TEE Tlr« 

and you want to change the first E in TEE to an H. Press CURSOR LEFT until the 
cursor is on the letter to be corrected: 



HOW 


IS- 


TEE 


TIM 


NOW 


IS 


TEE 


738M 


NOW 


IS 


TEE 


38 1 M 


NOW 


IS 


TEEi 


rriM 


NOW 


IS 


TE3g 


TIM 


NOW 


IS 


TOE 


TIM 



Now press H: 



NOW IS THSJ TIM 



The letter H appears where the first E stood, and the cursor moves to the next 
character position. Now press CURSOR RIGHT (NOT the space bar!) to get back to 
where you were. 
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INSERT/DELETE. The INSERT/DELETE key in unshifted mode is DELETE. It 
deletes the character to the immediate left of the cursor and moves the rest 
of the line, headed by the cursor, one character position to the left. To use 

DELETE, press CURSOR RIGHT or other cursor control keys to place the cursor on 
the character to the right of the character or characters to be deleted. Then press 
the DELETE key as many times as needed; each time you will remove one 
character. 

We saw how typeover can be used to correct the following line: 

NOW IS TEE TIr«; 

Alternatively, the DELETE key can be used to make the correction. To do so, 
press the DELETE key six times; this blanks the line past the T: 

now is tee Jim 

NOW IS TEE TjS 
HOW IS TEE m 
HOW IS TEE3S 
NOW IS TE;Si 
NOW IS T® 

Now type in the correction, and the rest of the line, up to the original point: 
HOW IS THE TIMES? 

The DELETE key can be especially handy when you are initially entering text 
and you spot an error a few characters in back of the cursor position. If the error is 
many characters back, you may be better off using CURSOR LEFT, so that you will 
not have to retype the line, with the possibility of introducing new errors. 

INSERT, the INSERT/DELETE key in shifted mode, opens a single 
character space in the line at the current cursor position. You can then insert 
an additional character into the space. To use INSERT, move the cursor to the 
character position where you want an insertion to begin. The cursor will flash on 
the character that will ultimately become the first character beyond the insertion. 
Press the INSERT key once for each character to be inserted; with each depres- 
sion of the INSERT key the rest of the line is moved one character position to the 
right, and one character space appears. Type in the characters being inserted into 
the space created. You should press as many character keys, including spaces, as 
you did INSERT keys. 

Suppose you want to do the following: 

NOW IS THE TIM& 

NOT 

Press CURSOR LEFT repeatedly until the cursor is on the T of THE: 
HOW IS ;3HE TIME 
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Press the INSERT key four times to create spaces for the word NOT plus a 
space. The cursor remains at the beginning of the insert area: 

NOW IS1THE TINE 
NOW IS» THE TIME 
NOW ISM THE TIME 
NOW IS® THE TIME 

Enter the word NOT, and a space: 

NOW IS NOT mHE TIME 

Use CURSOR RIGHT to move the cursor to the right of TIME if you want to 
continue entering data. 

INSERT can move text to the end of a statement line (up to two display 
lines), but it cannot move text past the end of the statement line onto a third 
line. If there is a non-blank character at the last position on the line, or if there are 
only blanks between the cursor and the beginning of the line, then the INSERT key 
does nothing. 

Similarly, you can use DELETE to move text to the beginning of the line, 
but not past the beginning of the line; pressing the DELETE key with the cursor 
at the beginning position of the line wraps the cursor up to the end of the preced- 
ing line, but the characters pulled to the beginning of the line do not move up with 
the cursor. 

It is important to note here that when you edit screen text using the 
CURSOR, INSERT, and DELETE keys, what you see on the screen is not al- 
ways what the PET records. In fact, none of your editing changes are 
recorded until you depress the RETURN key. Moreover, you must depress the 
RETURN key once for each statement line that you change. 
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SCREEN DISPLAY 

The PET screen is a high-resolution video display; it is similar to a black-and- 
white television set The display has 1000 character positions, arranged as 25 
rows, with 40 characters per row. The PET screen is illustrated in Figure 2-5. 



-40 Columns- 



25x40 = 1000 Characters 



Figure 2-5. The PET Video Screen 

One-fortieth of each display line, therefore, becomes one character position. The 
PET can display 64 dots in a single character position, organized as a block that is 
8 dots high and 8 dots wide. Characters are generated in any character posi- 
tion by displaying appropriate dots within the 8x8 dot block, or matrix. This 
is illustrated in Figure 2-6. 

Although lines on the PET display screen are only 40 characters wide, 
logically lines may be up to 80 characters wide. This is another example of 
what you see differing from what the PET records. To the PET, lines can be up to 
80 characters long. The end of a line is recorded by the PET when you press the 
RETURN key. But the PET will insert its own RETURN after the 80th character, 
ending the line, if you attempt to type an 81st character as part of a single line. 

The PET will display a line of more than 40 characters using two screen dis- 
play rows. When you type a 41 st character, the cursor automatically moves to the 
first character position of the next row, and displays the character you type; the 
display looks as though you had typed a RETURN after the 40th character, even 
though you have not 
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Figure 2-6. The 8x8 Dot Matrix 

CASSETTE TAPE DRIVE 

The cassette tape drive is built into the PET console on PETs with the com- 
pact keyboard but must be connected separately to PETs with the full size 
keyboard. The tape units themselves are identical. The tape drive allows you to 
store programs and data from the PET memory onto cassette tape; you can 
also load stored programs and data from cassette tape into the PET memory. 
The PET can be connected to more than one cassette tape drive. However, only 
one of the tape drives is the "main" or "console" cassette tape drive. For the com- 
pact keyboard PET the console tape drive is the built-in tape unit. For full size 
keyboards the console tape drive is the tape unit connected at the J1 interface 
port (refer to Figure 2-2). 

You can load and store programs on any tape drive (or other peripheral 
device, such as a disk drive) connected to the PET. However, the console tape 
drive is the default device implied when performing a load or store without 
specifying a particular peripheral device. 

The cassette tape drive is shown in Figure 2-7. 
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Figure 2-7. PET Cassette Tape Drive 

CASSETTE OPERATION 

Use the following procedure to insert a tape cassette into the PET tape drive 
(refer to Figure 2-8): 

a. Lift up the tape drive window. 

b. Holding the magnetic tape cassette as shown, push the cassette along 
the glide paths on the underside of the tape drive window. 

c. Push down until the cassette clicks into place. 

d. Push down the tape drive window. This aligns the path of the exposed 
magnetic tape with the tape drive head area. 

To remove a cassette tape, lift up the tape drive window, pull the cassette 
tape out of the tape drive, and then close the tape drive window. 
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Photo Joe Mauro Photo Joe Mauro 

a. Tape drive with window cover open — drive b. Correct manner to hold a tape cassette 
empty prior to inserting into tape drive 




Photo Joe Mauro Photo Joe Maun 

c. Open cassette drive with tape cassette d. Closed cassette drive with cassette inside 

inserted 



Figure 2-8. Inserting a Tape Cassette 
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CASSETTE TAPE CONTROLS 

The cassette tape control keys are located at the forefront of the cassette 
drive. 

Record (REC). The RECORD key lets you write onto the magnetic tape 
cassette from PET memory. To record, you must execute a SAVE command 
(which is described in Chapter 4), then hold down the REC key while depressing 
the PLAY key. 

Rewind (REW). The REWIND key rewinds the magnetic tape at high speed, 
to its beginning. To rewind the tape, depress the REWIND key. If the tape does not 
start moving, press the tape STOP key, and then press REWIND. 

You will use REWIND often to rewind tape cassettes back to their beginning 
point before removing them from the tape drive. You will also use REWIND any 
time you need the PET to start searching for information beginning at an earlier 
point on the magnetic tape. 

Fast Forward (FFWD). FAST FORWARD winds the magnetic tape forward 
at high speed. You will not normally use FAST FORWARD. 

The PET writes onto magnetic tape, reads from the tape, and searches for in- 
formation on the tape all at PLAY speed, which is slow. 

You may devise your own scheme using Fast Forward to locate information, 
rather than have the PET search at its Play speed. One method is just to guess. 
Fast Forward to a point that you think is close to the beginning of the information 
you want to load and then try to load. Note that you can be anywhere on the tape 
when you give the PET a LOAD request; you do not have to be at the beginning of 
a program or at the beginning of the tape. A more scientific method is to use the 
measuring scale on the tape cassette; the one below goes from to 100 in units 
of 10, with the beginning of the tape at 30: 
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As the tape moves forward, the tape radius, measured on the scale, goes 
from 30 up to 100. 100 is the end of the tape. By keeping a record of information 
stored on a tape, using the radius numbers, you can Fast Forward to a point just 
before the desired location. 
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PLAY. The PLAY key enables the PET to begin searching the tape for a pro- 
gram to load from the tape into PET memory, or to write from PET memory to the 
tape if the RECORD key is also pressed. When you initiate the first LOAD or SAVE 
on the cassette, the PET asks you to "PRESS PLAY ON TAPE #1"; the PLAY key 
remains depressed until you disengage it by pressing the tape STOP key. You can 
leave the PLAY key pressed until you are through with the tape; the PET reads or 
writes on the tape only when directed to by commands from the keyboard. 

When you first power up the PET, have the tape control keys all up (off). If 
the PLAY key is depressed, the tape will begin moving on power-up. 

STOP. The tape STOP key disengages any of the other tape control keys. If 
one of the other keys does not respond, press the tape STOP key and then the key 
that did not respond. 

Note that there are two STOP keys on the PET: the tape STOP key and the 
main keyboard STOP key. You should have no trouble differentiating between the 
two. 
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CLEANING AND MAINTENANCE 

There are no parts of the PET, except the tape head, that require periodic 
cleaning for proper operation. You can dust the PET if it becomes dusty. Any 
household window cleaner or kitchen spray cleaner can be used to clean the PET 
keyboard, exterior, and display screen if they become heavily soiled. For light 
cleaning, use a sponge dampened in water or a mild soap solution. DO NOT 
CLEAN THE PET WITH LARGE AMOUNTS OF WATER. DO NOT IMMERSE THE 
PET IN WATER. 

Perform all cleaning with power OFF. 

For long-term storage, it is best to pack the PET back into its shipping car- 
ton. 




WRONG- 
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CLEANING AND DEMAGNETIZING THE TAPE HEAD 

The tape deck head area of the PET cassette can be seen by opening the 
cassette window with power OFF and depressing the PLAY key. This juts the tape 
head mount out past the bottom edge of the cassette window area, where it is 
marginally reachable for maintenance. The tape head is shown in Figure 2-9. 



Erase Head 



Head Gap 
Area 



Record/Play Head 



Capstan 

Pinch Roller 




Figure 2-9. PET Cassette Tape Head 

The tape head is the portion of the cassette unit that the magnetic tape 
contacts when you record or play back. The oxide coating on the magnetic 
tape gradually deposits a film on the tape head and surrounding area; this 
deposit must be removed periodically by cleaning the tape head to assure 
reliable operation of the cassette unit. To clean the tape head, use a cotton 
swab soaked with denatured ethanol. Clean both heads and also the capstan and 
pinch roller (see Figure 2-9). Allow the area to dry completely before closing the 
cover. 

The tape head also needs to be demagnetized periodically. The tape 
heads gradually become magnetized through use. This affects recording fidelity 
and eventually causes recording errors. To demagnetize the tape heads, you will 
need a tape head demagnetizer (see Figure 2-10); this is an inexpensive unit that 
can be purchased at most audio equipment stores. 

To demagnetize the tape heads, have the cassette window open and the 
PLAY key depressed. To use the demagnetizer, have it at least two feet away from 
the PET before plugging in the demagnetizer (the PET should be OFF). SLOWLY 
bring the demagnetizer towards the PET until it contacts the head surface; 
carefully move it around on one head surface, then the other head surface, then 
all metal surfaces that are directly adjacent to the heads. SLOWLY move the 
demagnetizer back at least two feet before unplugging it. 

CAUTION: Keep your pre-recorded cassette tapes away from the demag- 
netizer. The demagnetizer is an effective tape eraser. Keep it at least five feet 
away from any pre-recorded cassettes. 

The more you use your PET, the more often it will need to have the tape 
heads cleaned and demagnetized. Do it at least once a month — more often if 
you are experiencing load problems or tape degradation. 
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Figure 2-10. A Typical Tape Head Demagnetizer 



Photo Joe Mauro 



CARE OF CASSETTE TAPES 

You will probably buy cassette tapes that have pre-recorded programs on 
them. You will probably also buy blank tape cassettes on which to record your 
own programs or data. Below are a few tips on taking care of your tape cassettes. 

First, when you get a new tape cassette (blank or pre-recorded), bal- 
ance its tension by fast forwarding to the end of the tape and rewinding back 
to the beginning before loading the first time. This is just a precautionary 
measure that may prevent reading errors that are called LOAD errors. 

When buying cassette tapes for the PET, do not get very long ones — 
15 or 30 minutes is sufficient. This not only cuts down the search time, but 
gives you tape that is thicker and stronger than long-playing tapes. Select high 
quality, low noise, high output, ferric oxide tapes; bargain brands are generally 
less satisfactory. Store the cassettes in a cool place away from things like 
magnets and electronic equipment. 

Be careful not to touch the oxide coated surface when handling tapes. 
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Write Protect 

You can prevent any cassette from being recorded on by a system 
called "write protect." A tape cassette has two write protect notches, one for 
each side of the tape, located on the side opposite the tape access opening (see 
Figure 2-1 1 ). When you buy pre-recorded tapes, or when your own tapes have in- 
formation stored on them, you can protect these tapes from accidentally being 
written on by punching out the write protect tabs. To write protect just one side of 
the tape, punch out the tab that is on the left when you have the side you want to 
write protect facing upward. When the write protect tab is in place it provides 
resistance to move a small peg on the PET tape head area that allows the RECORD 
key to be operational. When the write protect tab is punched out the peg is not 
moved, so that side cannot be written on. 

If you write protect a tape and then decide you want to reuse it, just 
place a piece of tape over the write protect opening. 




Figure 2-11. Write Protect Notches 
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ELEMENTARY TROUBLESHOOTING 

There are a variety of symptoms that your PET may exhibit when it is not 
working properly. Here are a few examples: the RETURN key may not work; every 
alternate key may not work; the screen display may be jittery; the number of 
"bytes free" may change; the PET may not respond at all. 

This section describes some rudimentary troubleshooting procedures that 
you can follow to check internal cable connections in the PET and to check for a 
faulty memory chip. 

First, here are a few simple procedures you should follow before opening 
up the case of the PET: 

• If you power up and get no response, be sure the PET is plugged into an 
electrical outlet. If it is plugged in, turn power off, wait a few seconds, 
then turn power back on. Try this a number of times until you get a 
response. 

• If the screen becomes jittery or PET BASIC misreacts intermittently, the 
PET unit may be overheated. If you cannot cool the room temperature, 
you will have to turn the PET off for awhile (you will lose whatever infor- 
mation is in memory when you turn it off). 

• The problem may not be in the PET hardware at all. There may be pro- 
gram errors, or "bugs," in the PET BASIC interpreter or in the program 
you are running. 

Internal Cable Connections 

This is the procedure to open the PET and check for secure positioning of 
cable connections. The specific items described are in the compact keyboard 
PET. Follow the same general procedure for full size keyboard PETs. 

1. Turn the power off and unplug the PET. 

2. Move the front of the PET out from the supporting surface so that you 
can see the four retaining screws on the bottom. With a screwdriver, 
unscrew the four retaining screws, placing them in a secure location. 

3. Lift the cover all the way up, being careful not to move it so far back 
that it pulls any of the cords. 

4. Locate the supporting rod on the left side in back of the tape cassette. 
Push the rod up to disengage it from its holder, then move it forward 
and secure it in the back screwhole on the left side. This holds the PET 
cover up so you have both hands free. (The supporting rod is shown in 
place in Figure 2-12.) 
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5. Locate the two rows of RAM devices (Figure 2-1 2). There are two rows 
of eight RAMs each (for an 8K system) making a total of 16 RAMs. 
Each RAM has nine prongs coming out and down, off each side of the 
black rectangular top (Figure 2-13). Press gently but firmly on each 
RAM to be sure it is securely seated in its casing connection. 




Figure 2-12. PET Internal View 
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Photo Joe Mauro 

Figure 2-13. Memory Device Unconnected 

6. The third row of larger rectangles contains ROM devices. Press them 
down also to be sure that they are firmly seated. 

7. The keyboard cable is connected just to the left of the ROMs. Press 
down along this connector to be sure that it is firmly in place. 
Optionally unplug the connector, lifting straight up, and plug it back in 
securely, pushing straight down. 

8. Behind the keyboard cable is the video cable. Press firmly down on it to 
make sure it is firmly seated. 

9. In front and to the left of the keyboard connector is the power supply 
connector. Press down on it to be sure it is firmly connected. 

1 0. Behind and to the left of the power cable is the cassette recorder cable, 
connected horizontally on the side of the large green board. Push in on 
the cable to connect it firmly in place. 

11. If the inside is dusty, you can vacuum carefully to remove foreign parti- 
cles. Be very careful not to bend any of the components on the board. 
Preferably clean with a squeezable bulb brush cleaner or a can of pres- 
surized air for dusting. (These two items are available from photo- 
graphic supply houses.) 

12. Unlatch the retaining rod and put it back into its holder, close the 
cover, plug the PET in, and turn the power on. If the trouble was due to 
loose connections, the problem should now be cleared up. 
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Locating a Defective RAM 

On earlier model PETs, the RAM failure rate was high. This prompted the 
manufacturer to recommend a procedure for owners of the first PETs to check for 
a defective RAM themselves. We reproduce this procedure below; you may want 
to learn this procedure if you have an older PET and are experiencing frequent 
RAM failures. It applies only to PETs with compact keyboards. 

If you do not get the standard number of bytes free at power-up (less 
than 7167 for an 8K PET or 3071 for a 4K PET) or if the RETURN key is not 
working properly, the problem is probably a defective memory device, or 
RAM. The following procedure describes how to locate a faulty RAM yourself, so 
that you do not have to ship the PET to the factory to have this done. 

To perform this procedure, you will need an "extractor tool" (see Figure 
2-14) available from electronic supply houses. 




Figure 2-14. Extractor Tool 



Photo Joe Mauri 



1. Unplug and open the PET as described above. 

2. Refer to Figure 2-15 for RAM numbering conventions. If bytes free are 
less than the number shown in the first column below, then the number 
of the RAM to be tested is in the second column below. 



Bytes Free 


RAM Number 


1023 


2 


2047 


3 


3071 


4 


4095 


5 


5119 


6 


6143 


7 


7167 


8 
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Back Row [7] [T] Q 

Front Row [7] Q] [7] [7] [T] [7] [7] [7] 

Front of Pet 



Figure 2-15. RAM Numbering 

For example, if bytes free are less than 4095. perform this procedure on 
the RAM numbered 5 in Figure 2-15. 

Using the extractor tool, carefully lift the two RAMs straight up from 
their sockets. BE SURE THAT YOU DO NOT BEND THE PINS. BE SURE 
THAT YOU DO NOT TURN THE DEVICES AROUND. Exchange the two 
RAMs, pushing each one straight down into the socket with your 
fingers. Without lowering the cover, plug the PET in and turn it on. Has 
the number of bytes free changed? If not, the two RAMs are good and 
you must select another pair. If the number of free bytes decreases, the 
defective RAM is the one you just put into the front row. If the number 
increases, the defective RAM is the one in the back row. 

If the problem is with the RETURN key. exchange RAMs in columns 8 
and 1, as shown below. 



Back Row 



H Q Q El E Q 




Q Q E (3 H (3 B Q 



Front Row 

Front of PET 

This (hopefully) puts good RAMs into column 1, and the defective RAM 
in column 8 can be determined by checking the number of free bytes, as 
described above. 

5. When you have located the defective RAM, lift it out and use a RAM 
from column 8 in its place. This decreases your total amount of free 
bytes the least. Return the defective RAM to the manufacturer for a 
replacement. 
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CHAPTER 3 



Programming the PET 



CALCULATOR OR IMMEDIATE MODE 

When the PET is powered up it is in calculator mode, also called direct 
or immediate mode. In calculator mode, as the name implies, you can use the 
PET as you would a calculator; it responds directly with the answers to 
arithmetic calculations. This may be illustrated as follows: 



74.5+6.42 
10.92 


Addition 


REfiliV. 




7590-410 


Subtraction 


90 




REflDV. 




7-rr*2 


Multiplication 


6.28318531 




REflDV . 




7100/3 


Division 


33.3333333 




REflDV. 




76/2*4-1 


Combination 


11 
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In calculator mode, as illustrated above, answers are displayed immediately, 
on the next line of the display. 

To use calculator mode for arithmetic operations, you must begin the line by 
typing ? or PRINT; they are both print requests. Next type the calculation for 
which you seek an answer. Terminate with a RETURN. 




We can illustrate the "format" or 
mode entry as follows: 



'syntax" for a general case calculator 



i ? \ 

(PRINT) 



formula 



R 

E 
T 
U 
R 
N 



Statements entered in calculator mode do not, and cannot, begin with 
line numbers. Later in this chapter we will examine exactly what you can include 
in the "formula" portion of a calculator mode statement. 

You can use immediate mode to display the result of a calculation 
defined in an earlier statement. Consider the following example: 

Fl=fT*2 



READS 

?A 



JS318531 
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There were two statements, each given in immediate mode. When you type 
in the first statement. A=tt*2, the result is not displayed since the statement 
does not begin with ? or PRINT. But PET BASIC performed the calculation and 
gave the resulting value to the variable named A. This value is fetched and typed 
in the second command, ?A. 

You can display the value of any variable using the technique illustrated 
above. The variable does not need to have its value assigned in a preceding im- 
mediate mode statement, as was the case for A above. When you have learned 
how to write and run PET BASIC programs, remember that you can stop the pro- 
gram's execution at any time, then examine the current value assigned to any 
variable defined by your program. Type ? followed by the variable name, and the 
value currently assigned to the variable name will be displayed on the next line, 
just as 6.28318531, the value assigned to A, is shown in the illustration above. 

A ONE-LINE PROGRAM 

Statements can be grouped together on one line by separating each state- 
ment with a colon (:). Thus, the two statements you entered separately earlier: 

?fl 
can be condensed into one line as follows: 

rl = 1T*2 : ?fl 

Since a line can have up to 80 characters (two display lines), you can put 
quite a lot in one line, and execute it all in immediate mode. For example, consider 
the following statement: 

FOR 1 = 1 TO 30© ■ ? " ft " .: : NEXT : ? " PHEW ! " 
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Type this "mini-program" in, exactly as shown, ending with a RETURN. If 
you type it in successfully, you will see the letter A print across the next 20 lines 
of the screen, followed by the message PHEW! on the 21st line. 

FOR 1=1 TO 800:?"fl"; :NEXT-?"PHEW!" 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

flflRRfififlRflfiflflflflflflRflflfiRflRflflflfiRflflfiflflflflRflflfifl 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

RflflflAAflflflflflflflflflAAAAAAAAAAAAAAAAAAAAAflflflfl 

RRAflARRflflAAAAAARfiflflfiflAAAfiflfiRARAAAflflRfiAflfl 

RRRflflAAAAAAAAAAAAAAAAAAAAAAAflflAflflflflAAARR 

RARRflflflflRflflRAAflRRflflAAAAAAAAAAAflflflRAARRRfl 

AAARfiflRRflflflRflflflflflAAAARRflflAAAAAAAflflflflAflflR 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAR 

ARAAAAAAARAAAAAAAAAAAAAAAARARAAAAAAAAAAfi 

ARRRAflRRflflflflflflflflRflflflflRflflflRflflflAAAAAAAAflAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAflAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAflAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PHEW! 

RE ADV. 



The program line is conveniently left at the top of the screen. This was done 
by having the program print just enough lines to scroll the program line to the top 
of the screen but not off it. 
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REEXECUTING IN IMMEDIATE MODE 

When the one-line program described above completes executing in im- 
mediate mode, PET BASIC displays the READY message and leaves the cursor at 
the beginning of the bottom display line. 

An important feature of PET BASIC is that anything displayed on the 
screen is "live." You can edit any line on the screen, and you can reexecute 
any immediate mode statements that are still on the display screen. 

Use CURSOR UP (shift of Cursor Up/Down key) or, more conveniently, 
depress the HOME key (Clear/Home key unshifted) to move the cursor up to the F 
in FOR. Move the cursor right 15 positions to the A. Press a graphic key, say the 
DIAGONAL-QUARTER BLOCK SOLID (shift of ? key). Key RETURN. The new sym- 
bol now overwrites and replaces all of the A's across the 20-row display. On com- 
pletion, the cursor again rests at the beginning of the bottom line. 

FOR 1 = 1 TO 890 :?""."; NEXT: ?"PHEW! " 
VWVAWWWVWWVWWWWWrVWYWVWWWWi 

V.VW , .Vrt*A%V.SVV% , ."bVAVV. , VVVV , b*.ViV , WV%VA 
%VV%^VNi%VVVWV^Vi*iV^VVliVrtV*VJ , V , .VVS".V.VV% 

^lV^vvv^(VvvvsvA , vv■^^vrtv»vA•.*.v■"■ , v^i^ftlV.•. 

^%VVWWrtVSVASVSVi , VViWiVi"i ,,, i*.'V^S% , . ,,, .VV.V.* < 
VrtVrtVWVVAVV^Vrt^V.lrtVVi-iVrtV.V.VNi'iVi 
VVVVVWflrtftiVi'VSi"«VV ,, iV.*i% l Vi ,, iViV.V.% ,, .ViViSV» , » 
%Vrt"VVVVrt%VSVAV«VVW , . , .ViV.VAVi%ViViV.-. 

v. , rtVVvvvvvv , «vvy%v'vwvvViViVi%vrtv.v»v.s-» 
■rt^^^iVv^i^ft^^s^^ 1 ^^s^ ,, ii^v■■. , v■v.■^i^v , ^iV.v.v•v■ 

VirtWAVVVVi"WVVA%VWV^Vi ,, rt-i ,, rtV«".VrtVAViVi 

•■^fl^vws^vwv^^v , vv , iiVl^l%vs■.%sv«■■^v.v.v■*rt^iV• 

PHEW ! 
REflDV. 
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MODIFYING A PROGRAM 

Before trying any more characters, make one editing modification to the line 
so that changing the character is just a little easier. By adding an assignment 
statement at the beginning of the line, and having the variable printed in the 
PRINT statement, you won't have to move the cursor as far to the right to change 
the character. The new line, with the display character changed to a W, will look 
like this: 

C*= " W " : FOR I = 1 TO 800 •• ?C* i ■ NEXT ■ ? " PHEW ! " 
To modify the current line, perform the following steps: 

1. Home the cursor so it is blinking at the F in FOR ( indicates position of 
cursor). 

FOR I = 1 TO SOS ■?" V i ■ NEXT ■ ? " PHEW ! " 

2. Press the INSERT key (shift of Insert/Delete) seven times. 

8 FOR 1 = 1 TO 8O0:?"".".; : NEXT:?" PHEW! " 

3. Type in the seven characters: 

C*="W" : 

The line now looks like this, with the cursor again resting on the F in 
FOR: 

C*= " W " : FOR 1 = 1 TO 800 - ? " "." .; : NEXT : ? " PHEW ! " 

4. Cursor right 14 times to the first quotation mark. 

C*= " W " : FOR I = 1 TO 800 : ? " *." i ■ NEXT ' ? " PHEW ! " 

5. Type in the two characters: 

C* 

The line now looks like this: 

C*= " W " : FOR 1 = 1 TO 800 : ?€■$■" .; ' NEXT : ? " PHEW ! " 

6. Remove the other quotation mark by pressing one Cursor Right: 

C*="W" -FOR 1=1 TO 800 :?C*"; : NEXT:? "PHEW! " 
Followed by one Delete: 

C*="W" FOR 1 = 1 TO 8O0 :?C*.; 'NEXT' ?" PHEW! " 

The changes have all been made: press RETURN to print the new character. 
Now you can HOME the cursor, then move it right just four positions to change 
the display character. Display any other characters you want. The graphics are 
especially interesting. 
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ELEMENTS 

Before modifying this display program further, we will set it aside and de- 
scribe the elements of PET BASIC. This will introduce you to the full range of 
statements, functions, and commands available. At the end of the chapter we will 
come back to this display example and show how you can develop it into a stored 
program. 

Like natural languages, PET BASIC has an alphabet consisting of letters, 
numbers, and special characters. These correspond to the alphabetic keys, 
numeric keys, and special symbol keys on the PET keyboard. The remaining 
two groups of keys, graphic keys and function keys, may be used only inside 
quotation marks, or for keyboard/cursor control purposes not related to the BASIC 
language. 

The PET alphabet is used to form the words, numbers, and other ele- 
ments that make up a BASIC sentence, or statement. 



NUMBERS 

You use numbers all the time when working with the PET. There are two 
kinds of numbers that can be stored in the PET: floating point numbers (also 
called real numbers) and integers. 

Floating Point Numbers 

Floating point is the standard number representation used by the PET. The 
PET does its arithmetic using floating point numbers. A floating point number 
can be a whole number, a fractional number preceded by a decimal point, or 
a combination. The number can be signed negative (-) or positive (+). If the 
number has no sign it is assumed to be positive. Here are some examples of float- 
ing point numbers: 

Whole number, equivalent to an integer: 

5 

-15 

65000 

161 
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Numbers with decimal point: 



0.5 

0.0165432 

-0.0000009 

1.6 

24.0055 

-64.2 

3.1416 



Note that if you put commas in a number and ask the PET to print it, you wil 
get a Syntax Error message. For example, you must use 65000, not 65,000. 



Roundoff 

Numbers always have at least eight digits of precision; they can have 
up to nine, depending on the number. The PET rounds off any additional sig- 
nificant digits. It rounds up when the next digit is five or more; it rounds down 
when the next digit is four or less. 

Roundoff will sometimes cause fractional numbers to look inaccurate. Here 
are some examples: 



^555555556 
555 

L 



=;'=;'=;<=;=;'=;'=;■= 



55555556 



Appears to round down on 6 or less, up on 7 or more. 



1111111115 
111111X11 

1111111116 
111111112 



Appears to round down on 5 or less, up on 6 or more. 



These quirks result from the manner in which computers store floating point 
numbers. 



Scientific Notation 

Floating point numbers can also be represented in scientific notation. When 
numbers with ten or more digits are entered, the PET automatically converts 
them to scientific notation. Scientific notation allows the PET to accurately dis- 
play these large numbers in a smaller number of spaces. For example: 

READY. 

?11 111111 14 

1.11111111 E+09 
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REflDV. 

?1 11 11 11115 

1. 11111112E+09 

A number in scientific notation has the form: 

numberE±ee 



where: 
number 



ee 



is an integer, fraction, or combination, as illustrated above. 
The "number" portion contains the number's significant 
digits; it is called the "coefficient." If no decimal point ap- 
pears, it is assumed to be to the right of the coefficient, 
the upper case letter E. 
an optional plus sign or minus sign. 

a one- or two-digit exponent. The exponent specifies the mag- 
nitude of the number; that is, the number of places to the 
right (positive exponent) or to the left (negative exponent) that 
the decimal point must be moved to give the true decimal 
point location. 



Here are some examples: 

Scientific Notation Standard Notation 

2E1 20 

10.5E+4 105000 

66E+2 6600 

66E-2 0.66 

-66E-2 -0.66 

"IE- 10 0.0000000001 

94E20 9400000000000000000000 

As the last two examples show, scientific notation is a much more conve- 
nient way of expressing very large or very small numbers. PET BASIC prints num- 
bers ranging between 0.01 and 999,999,999 using standard notation; but num- 
bers outside of this range are printed using scientific notation. 

?. 009 

9E-03 
REflDV. 

?.01 
.01 

REflDV . 
7939999998. 9 

Ci Cl 9 C| Cl 3 9 C| 9 

REflDV. 

•-■QC|CtC|C(9CiCl9. €• 

1E+09 
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There is a limit to the magnitude of a number that the PET can handle, 

even in scientific notation. The range limits are: 

largest floating point number: ±1.70141 183E+38 
smallest floating point number: ±2.93873588E-39 

Any number of larger magnitude will give an overflow error. Here are some 
examples of overflow error: 

?1. 76141 1S3E+38 
1. 70141 1S3E+38 

READY. 

?-l. 70141 1S3E+38 

-1. 70141 1S3E+33 

READY. 
?1.701411S4E+38 



70VERFL0W ERROR — 

READY. 

?-l. 70141 184E+38 



70VERFLOW ERROR — 



Any number of smaller magnitude will yield a zero result. This may be il- 
lustrated as follows: 



2. 93873588E-39 

RE flD V. 

?-2. 93873588E-39 

-2. 93873588E-39 

READY. 

?2. 93873587E-39 



W 



READY. 

?-2. 93873587E-39 
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Integers 

An integer is a number that has no fractional portion or decimal point. 

The number can be signed negative (-) or positive (+). An unsigned number is 
assumed to be positive. Integer numbers have a limited range of values, from 
-32767 to +32767. The following are examples of integers: 



1 

44 

32699 

-15 
Any number that is an integer can also be represented in floating point for- 
mat, since integers are a subset of floating point numbers. PET BASIC converts 
any integers to floating point representation before doing arithmetic with 
them. The most important difference between floating point numbers and in- 
tegers is that an integer array uses less storage space in memory (two bytes 
for an integer, versus five bytes for a floating point number). 

STRINGS 

We have already used strings as messages to be printed on the display 
screen A string consists of one or more characters enclosed in double quota- 
tion marks. Here are some examples of strings: 

"HI!" 

"SYNERGY" 

"12345" 

"$10.44 IS THE AMOUNT" 

"22 UNION SQUARE, SAN FRANCISCO CA" 

All of the data keys (alphabetic, numeric, special symbols, and graphics), as 
well as the three cursor control keys (Clear Screen/Home, Cursor Up/Down, Cur- 
sor Left/Right) and the Reverse On/Off key can be included in a string. The only 
keys that cannot be used within a string (besides the SHIFT key) are Run/Stop, 
RETURN, and Insert/Delete. 

All characters within the string are displayed as they appear. The cursor 
control and Reverse On/Off keys, however, normally do not print anything them- 
selves; to show that they are present in a string, certain reverse field symbols are 
used. They are shown in Table 3-1. 

When you enter a string from the keyboard, it can have any length up to the 
space available within an 80-character line (that is, any character spaces not 
taken up by the line number and other required parts of the statement). However, 
strings of up to 255 characters can be stored in the PET's memory. You get 
long strings by pushing together, or concatenating, two separate strings to 
form one longer string. We will describe this further when we discuss string 
variables in general. 
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Table 3-1. Special String Symbols 



Function 



Reverse On 
Reverse Off 
Home Cursor 
Clear Screen 
Cursor Down 
Cursor Up 
Cursor Right 
Cursor Left 



Key 





f OFF ' 

RVS 

ON 






Shifted 


C OFF 

RVS 

ON 








CLR 
SCREEN 
HOME 






Shifted 


CLR 
SCREEN 
HOME 




CURSOR 






Shifted 


CURSOR 








CURSOR 

=> I 






Shifted 


<= ' 
CURSOR 

^ J 



String Symbol 



3 (Reverse R) 

H (Reverse Shifted R) 

•3 (Reverse S) 

^ (Reverse Shifted S) 

W (Reverse Q) 

•1 (Reverse Shifted Q) 

M (Reverse ]) 

II (Reverse Shifted ]) 



VARIABLES 

In Chapter 2 we introduced the concept of a variable. We will now describe 
variables more thoroughly. 

A variable is a data item whose value may change. You type the immedi 
ate mode statement: 

PRINT 10,20,30 

1 20 30 

The PET will print the three numbers 10, 20, and 30. as illustrated above. 
The PET will print the same three numbers whenever this PRINT statement is ex- 
ecuted; that is because this PRINT statement uses constant data. In contrast, you 
can write the immediate mode statement: 

fl= 1 •• B-20 ■ C-30 PR INT ft , E , C 
1 fci 20 30 
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The same three numbers, 10, 20, and 30, are displayed, but A, B, and C are 
variables, not constants. By changing the values assigned to A, B, and C, you can 
change the values printed out by the PRINT statement. Here is an example: 

H=-4 ■■ E= 1 : C=4E2 : PR INT ft , B , C 
-4 iu 40u 

Variables appear in just about every statement of a computer program. 

Variable Name 

A variable is identified by a name. We used A, B, and C as variable names in 
the illustrations above. A variable has two parts: its name and a value. The 
variable name represents a location at which the current value is stored. In 

the illustration below, the current value of A is 14; for B it is 15; and for C it is 0. 

Variable Location 

Name Contents 

A 14 

B 15 

C 

If we change A to —1 using the immediate mode statement: 

A = -1 

then our illustration must change as follows: 

Variable Location 

Name Contents 

A -1 

B 15 

C 

This is a good way of looking at variables because it is, in fact, the way they 
are handled by the PET. A variable name represents an address in PET 
memory; and at that memory location is the current value of the variable. The 
important point to note is that variable names — which are names that pro- 
grammers make up — are arbitrary; they have no innate relationship to the 
value that the variables represent. 
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A variable name can have one, two, or three characters, as follows: 

r. 
Mandatory first character 



Optional second character 




Variable type' (blank) 
% 



((blank)) 
% 



for floating point variable 
for integer variable 
for string variable 



A-Z means that you can select any letter of the alphabet A, B, C, . . . X, Y, Z, 
and 0-9 means that you can select any digit 0, 1,2, 3, 4, 5, 6, 7, 8, or 9. 

Floating Point Variable 

A floating point variable is a variable that represents a floating point num- 
ber. This is probably the most common type of variable that you will use in PET 
BASIC. 

Names for floating point variables have the form: 



A-Z 



m 



Examples: 



A 

B 

C 

A1 

AA 

Z5 

Integer Variable 

An integer variable is a variable that represents an integer. 
Names for integer variables have the form: 



A-Z 



{oM % 



Examples: 



A% 

B% 

C% 

A1% 

MN% 

X4% 



Remember, floating point variables can also represent integers; but you 
should use integer variables in arrays whenever possible, since they use less 
memory — two bytes, versus five for a floating point array element. 
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String Variable 

A string variable is a variable that represents a string of text 
Names for string variables have the form: 



A-Z 




Examples: 



A$ 

M$ 

MN$ 

M1$ 

ZX$ 

F6$ 



Longer Variable Names 



You can use variable names having more than two alphanumeric 
characters; but if you do, only the first two characters count. To PET BASIC, 
therefore. BANANA and BANDAGE are the same name since both begin with BA. 

The advantage of using longer variable names is that they make programs 
easer to read. PARTNO, for example, is more meaningful than PA as a variable 
name describing a part number in an inventory program. 

PET BASIC allows variable names to have up to 255 characters. 

Here are some examples of variable names with more than the minimum 
number of characters: 

MAGICS 

N 123456789 

MMM$ 

ABCDEF% 

CALENDAR 

If you use extended variable names, keep in mind the following: 

1 . Only the first two characters, plus the identifier symbol, are significant in 
identifying a variable. Do not use extended names like LOOP1 and 
LOOP2: these refer to the same variable: LO. 

2. PET BASIC has what are called "reserved words." These are words that 
have special meaning for the PET BASIC interpreter. No variable can con- 
tain a reserved word. In longer names you have to be very careful that a 
reserved word does not occur embedded anywhere in the name. 

3. The additional characters need extra memory space, which you might 
need for longer programs. 
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Reserved Words 

PET BASIC is programmed to recognize certain words as requests for 
specific operations. Names that are pegged to certain operations are called 
reserved words You cannot use these words as variable names because 
PET BASIC will always recognize the word as a request for the correspond- 
ing operation. Moreover, you cannot use a reserved word as any part of your 
variable names; PET BASIC will still find it and treat it as a request for an 
operation. 

A list of reserved words is given in Table 3-2. Pay particular attention to the 
two-character reserved words, since these are the ones you would be most likely 
to duplicate in a variable name. 



Table 3-2. Reserved Words 



ABS 


GET 


OPEN 


AND 


GET# 


OR 


ASC 


GOSUB 


PEEK 


ATN 


GOTO 


POKE 


CHR$ 


IF 


POS 


CLOSE 


INPUT 


PRINT 


CLR 


INT 


PRINT# 


CMD 


LEFTS 


READ 


CONT 


LEN 


READ# 


COS 


LET 


REM 


DATA 


LIST 


RESTORE 


DEF 


LOAD 


RETURN 


DIM 


LOG 


RIGHT$ 


END 


MID$ 


RND 


EXP 


NEW 


RUN 


FN 


NEXT 


SAVE 



SPC 

SQR 

ST 

STEP 

STOP 

STR$ 

SYS 

TAB 

TAN 

THEN 

Tl 

Tl$ 

TO 

USR 

VAL 

VERIFY 

WAIT 



OPERATORS 

An operator is a special symbol that PET BASIC recognizes as repre- 
senting an operation to be performed on the variables or constant data. One 
or more operators, combined with one or more terms, form an "expression." 

PET BASIC provides arithmetic operators, relational operators, and Boolean 
operators. 
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Arithmetic Operators 

An arithmetic operator defines an arithmetic operation to be performed 
on the adjoining terms. Arithmetic operations are performed using floating point 
numbers. Integers are converted to floating point numbers before an arithmetic 
operation is performed; the result is converted back to an integer. 

Arithmetic operations and their symbols are: 

Addition (+). The plus sign specifies that the term on the left is to be added 
to the term on the right. For numeric quantities this is straightforward addition. 

Examples: 

2+2 
A+B+C 
X%+1 
BR+10E-2 

The plus sign can be used to "add" strings: but rather than adding their 
values, they are joined together, or concatenated, forming one longer string. The 
difference between numeric addition and string concatenation can be visualized 
as follows: 

Addition of Numbers: 

num1+num2 = num3 

Addition of Strings: 

String1+string2=string1string2 

By concatenation, strings containing up to 255 characters can be developed. 

Examples: 

"FOR"+"WARD" results in "FORWARD" 

"Hl"+" "+"THERE" results in "HI THERE" 
A$+B$ 
"1"+CH$+E$ 

Subtraction (-). The minus sign specifies that the term to the right of the 
minus sign is to be subtracted from the term to the left. 

Examples: 

4—1 results in 3 

100-64 results in 36 

A-B 

55-142 results in -87 
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The minus can also be used as a unary minus; that is, the minus sign preceding a 
negative number. 

Examples: 

-5 

-9E4 

-B 

4--2 same as 4+2 

Multiplication (*). An asterisk specifies that the term on the right is 
multiplied by the term on the left. 

Examples: 

100.2 results in 200 

50»0 results in 

A.X1 
R%.14 

Division (/). The slash specifies that the term on the left is to be divided by 
the term on the right. 

Examples: 

10/2 results in 5 

6400/4 results in 1600 

A/B 
4E2/XR 

Exponentiation (f ). The up arrow specifies that the term on the left is raised 
to the power specified by the term on the right. If the term on the right is 2, the 
number on the left is squared; if the term on the right is 3, the number on the left 
is cubed, etc. The exponent can be any number, variable, or expression, as long as 
the exponentiation yields a number in the PET's range. 

Examples: 

2T2 results in 4 

1 2T2 results in 144 

1 13 results in 1 
AT5 

216.4 results in 84.4485064 

NMT-10 

14TF 
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Order of Evaluation 

When an expression has multiple operations, as in: 

A+C*10/2T2 

there is a built-in hierarchy for evaluating the expression. First is exponentiation 
(t), followed by unary minus (-), followed by multiplication and division (*/), 
followed by addition and subtraction (+ -). Operators of the same hierarchy are 
evaluated from left to right. 

This natural order of operation can be overridden by the use of 
parentheses. Any operation within parentheses is performed first. 

Examples: 

4+1«2 results in 6 

(4+1).2 results in 10 

100*4/2-1 results in 199 

100.(4/2-1) results in 100 

100.(4/(2-1)) results in 400 

When parentheses are present, PET BASIC evaluates the innermost set first, 
then the next innermost, etc. Parentheses can be nested to any level and may be 
used freely to clarify the order of operations being performed in an expression. 

Relational Operators 

A relational operator specifies a "true" or "false" relationship between 
adjacent terms. The specified comparison is made, and then the relational 
expression is replaced by a value of true (-1) or false (0). Relational operators 
are listed in Table 3-4 at the end of this chapter. Relational operators are evalu- 
ated after all arithmetic operations have been performed. 

Examples: 

1=5-4 results in true (-1) 

14>66 results in false (0) 

1 5 > =1 5 results in true (-1) 
A< >B 

Relational operators can be used to compare strings. For comparison pur- 
poses, the letters of the alphabet have the order A<B, B<C, C<D, etc. Strings 
are compared by comparing their stored character values. Characters are stored 
using a special binary code called "ASCII." Appendix A lists the ASCII code 
assigned to every PET character. 

Examples: 

"A"<"B" results in true (-1) 

"X"="XX" results in false (0) 

C$=A$+B$ 
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Boolean Operators 

The Boolean operators AND, OR. and NOT specify a Boolean logic 
operation to be performed on two variables, on adjacent sides of the operator 
In the case of NOT, only the term to the right is considered. Boolean operations 
are not performed until all arithmetic and relational operations have been com- 
pleted. 

Examples: 

IF A = 100 AND B = 100 GOTO 10 

If both A and B are equal to 100, branch to 
statement 10. 

IF X<Y AND B>=44 THEN F=0 

If X is less than Y, and B is greater than or equal to 44, 
then set F equal to 0. 

IF A = 100 OR B = 100 GOTO 20 

If either A or B has a value of 100, branch to 
statement 20. 

IF X<Y OR B>=44 THEN F=0 

F is set to if X is less than Y, or B is qreater than 
43. 

IF A = 1 AND B=2 OR C=3 GOTO 30 

Take the branch if both A = 1 and B=2; also take 
the branch if C=3. 

A single term being tested for "true" or "false" can be specified by the term 
itself, with an implied " < >0" following it. Any non-zero value is considered true; 
a zero value is considered false. 

Examples: 

IF A THEN B=2 

IF A<>0 THEN B=2 

The above two statements are equivalent. 
IF NOT B GOTO 100 

Branch if B is false, i.e., equal to zero. This is 
probably better written as: 
IF B=0 GOTO 100 

The three Boolean operators can also be used to perform logic operations on 
the individual binary digits of two adjacent terms (or just the term to the right in 
the case of NOT). But the terms must be in the integer range. Boolean operations 
are defined by groups of statements, which taken together constitute a "truth ta- 
ble. Table 3-3 gives the truth tables for the Boolean operators used bv PET 
BASIC. 
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Table 3-3. Boolean Truth Table 



The AND operation results in a 1 only if both bits are 1. 

1 AND 1 = 1 

AND 1 =0 

1 AND 0=0 

AND = 

The OR operation results in a 1 if either bit is 1. 

1 OR 1 = 1 

OR 1 = 1 

1 OR = 1 
OR = 

The NOT operation logically complements each bit. 

NOT 1 = 
NOT = 1 



Bit-Oriented Boolean Operations 

We include below a discussion of binary digit (bit) oriented Boolean opera- 
tions. This discussion is presented for those who are interested in the details 
of how these operations are performed. If you do not understand it, skip it. You 
are not skipping anything you must know. 

Bitwise Boolean operations are normally performed on unsigned, positive 
16-bit numbers; these numbers range from to FFFF hexadecimal, to 188888 
octal, or or 65535 decimal. However, the numbers must be input to the PET in 
the range ±32767 decimal. Appendix F contains hexadecimal-PET decimal con- 
version tables. If you are already familiar with Boolean operations, you have prob- 
ably used binary, octal, or hexadecimal notation, because the bit-by-bit conver- 
sion is straightforward. PET BASIC accepts only decimal numbers, even for these 
Boolean operations. Here are some examples of bitwise Boolean operations: 



Operation 

1 AND 1 
1 AND -1 
15 OR 240 
NOT0 
NOT 1 



results in 1 
results in 1 
results in 255 
results in -1 
results in —2 



Hexadecimal equivalent 

1 AND 1 equals 1 
1 AND FFFF equals 1 
F OR F0 equals FF 
NOT equals FFFF 
NOT 1 equals FFFE 
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If the terms to be operated on are not already integers, they are converted to 
integer form; the Boolean operation is performed, and the result is presented as a 
single integer value. This is also how Boolean operations work on the true/false 
expressions. That is, there is no operational difference between a mixed Boolean 
operation such as: 

A = 1 OR C<2 

and a simple Boolean operation such as: 

A OR C 

The only practical difference is that, since a relational expression is evalu- 
ated to —1 or 0, the Boolean operation will always be performed on quantities of 
— 1 and for a relational expression. For example: 

IF A=B AND C<D GOTO 40 

First the relational expressions are evaluated. Assume that the first expression is 
true and the second one is false. In effect, the following Boolean expression is 
evaluated: 

IF -1 AND GOTO 40 

Performing the AND yields a result: 

IF GOTO 40 

Recall that a single term has an implied "<>0" following it. The expression 
therefore becomes: 

IF0O0 GOTO 40 

Thus, the branch is not taken. 

In contrast, a Boolean operation performed on two variables may yield any 
integer number: 

IF A% AND B% GOTO 40 

Assume that A%=255 and B%=240. The Boolean operation 255 AND 240 yields 
240. The statement, therefore, is equivalent to: 

IF 240 GOTO 40 

or, with the "< >0": 

IF 240 < >0 GOTO 40 

Therefore the branch will be taken. 

Now compare the two assignment statements: 

A = A AND 10 

A = A<10 

In the first example, the current value of A is logically ANDed with 10 and 
the result becomes the new value of A. A must be in the integer range ±32767. In 
the second example, the relational expression A< 10 is evaluated to -1 orO, so A 
must end up with a value of -1 or 0. 

68 



Table 3-4. Operators 





Precedence 


Operator 


Meaning 




High 
9 





Parentheses denote order of evaluation 


.2 » 
1 2 


8 

7 
6 
6 
5 
5 


! 

* 
/ 
+ 


Exponentiation 

Unary Minus 

Multiplication 

Division 

Addition 

Subtraction 


1 2 

£ ° 
.2 £ 

• £■ 
K O 


4 
4 
4 
4 
4 
4 


< > 
< 
> 

<=or =< 
>=or => 


Equal 

Not equal 

Less than 

Greater than 

Less than or Equal 

Greater than or Equal 


c 2 
a o 

£ m 
O i- 

o • 

"5 


3 
2 

1 

Low 


NOT 

AND 

OR 


Logical complement 
Logical AND 
Logical OR 



ARRAYS 

An array is a sequence of related variables. A table of numbers, for ex- 
ample, may be visualized as an array. The individual numbers within the ta- 
ble become "elements" of the array. 

Arrays are a useful shorthand means of describing a large number of related 
variables. Consider, for example, a table of numbers containing ten rows of num- 
bers, with twenty numbers in each row. There are 200 numbers in the table. How 
would you like it if you had to assign a unique name to each of the 200 numbers? 
It would be far simpler to give the entire table one name, and identify individual 
numbers within the table by their table location. That is precisely what an array 
does for you. 

Arrays can have one or more dimensions. A single-dimensional array is 
equivalent to a table with just one row of numbers. The dimension identifies a 
number within the single row. An array with two dimensions yields an ordinary 
table with rows and columns: one dimension identifies the row, the other dimen- 
sion identifies the column. An array with three dimensions yields a "cube" of 
numbers, or perhaps a stack of tables. Four or more dimensions yield an array that 
is hard to visualize, but mathematically no more complex than a smaller dimen- 
sioned array. 

Let us examine arrays in detail. 
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A single-dimensional array element has the form: 

named) 



where: 
name 



is the variable name of the array. The name may be any type 
of variable name. 

i is the array index to that element. On the PET the index i must 

start at 0. 

A single-dimensional array called A, having five elements, would be stored 
as follows: 



A(0) 




A(1) 




A (2) 




A (3) 




A (4) 





The number of elements in the array is equal to the highest element number, 
plus 1 to count array element 0. 

A two-dimensional array element has the form: 

named, j) 
where: 

name is the variable name of the array. It may be any type of varia- 

ble name. 

i is the column index. 

j is the row index. 

A two-dimensional array called A$, having three column elements and two 
row elements, would appear as follows: 

' A$(0.1) 
A$(1.1) 
A$(2.1) 

The size of the array is the product of the highest row element plus 1 , 
multiplied by the highest column element plus 1 . For this array, it is 3x2=6 ele- 
ments. 

Additional dimensions can be added to the array: 

name (i,j,k,...) 



A$(0.0) 






A$(1.0) 






A$(2.0) 
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Arrays of up to eleven elements (subscripts to 10 for a one-dimen- 
sional array) may be used where needed in PET BASIC, just as variables can 
be used as needed. Arrays containing more than eleven elements need to be 
"declared" in a Dimension statement. Dimension statements are described 
later in this chapter and in Chapter 4. An array (always with subscripts) and a 
single variable of the same name are treated as separate items by PET BASIC. 
Once dimensioned, an array cannot be referenced with different dimensions. 



FUNCTIONS 

Another element of PET BASIC is the built-in function. A function performs 
a predefined operation on a specified data item or items; they are referred to 
as "arguments." For example, you will use functions to find the square root of a 
number, to convert a floating point number to integer form, to find the number of 
characters in a string, or to set a tab to a certain column on the display screen. 
Functions are a great programming convenience. 

We will summarize the functions supported by PET BASIC now so that you 
can get an overview of what functions are available to you on the PET. The func- 
tions are described in detail in Chapter 4. 

A function may operate on one or more constants, variables, or expres- 
sions; these are termed the arguments of the function. The argument is writ- 
ten in parentheses following the function name: 

function(arg) 

If a function requires two or more arguments, they are separated by commas: 

function(arg1,arg2) 

If the arguments of a function (argl, arg2, etc.) are expressions, which is 
allowed by PET BASIC, then the expressions are evaluated, reducing each argu- 
ment to a single number, before the function itself is evaluated. 

When a function appears in a BASIC statement, it is evaluated before any 
other part of the BASIC statement. 

The following functions constitute the arithmetic function group: 

INT Converts a floating point argument to its integer equivalent. 

SGN Returns the sign of an argument: +1 for a positive argument, -1 
for a negative argument, for a argument. 

ABS Returns the absolute value of an argument. A positive argument 
does not change: a negative argument is converted to its posi- 
tive equivalent. 

SQR Computes the square root of the argument. 

EXP Raises the natural logarithm base e to the power of the argument 
( e arg1) 

7/ 



LOG Returns the natural logarithm of the argument. 

RND Generates a random number. There are some rules regarding use 
of RND; they are described in Chapter 4. 

SIN Returns the trigonometric sine of the argument, which is treated 
as a radian quantity. 

COS Returns the trigonometric cosine of the argument, which is 
treated as a radian quantity. 

TAN Returns the trigonometric tangent of the argument, which is 
treated as a radian quantity. 

ATN Returns the trigonometric arctangent of the argument, which is 
treated as a radian quantity. 

Arithmetic functions perform commonly needed arithmetic operations on a 
single argument. Here are some examples: 

INT(A) Returns the integer value of A. 

SQRCI44) Returns the square root of 144 (i.e., 12). 

SIN(BX(1,0)) Returns the sine of array element BX(1,0). 

The following functions constitute the string function group: 

STR$ Converts a number to its equivalent string of text characters. 

VAL Converts a string of text characters to their equivalent number (if 
such a conversion is possible). 

CHR$ Converts an 8-bit binary code to its equivalent ASCII character. 

ASC Converts an ASCII character to its 8-bit binary equivalent. 

LEN Returns the number of characters contained in the text string 
identified by the argument. 

LEFT$ Extracts the left part of a text string. Function arguments identify 
the string and its left part. 

RIGHTS Extracts the right part of a text string. Function arguments iden- 
tify the string and its right part. 

MID$ Extracts the middle section of a text string. Function arguments 
identify the string and the required mid part. 

String functions let you determine the length of a string, extract portions of 
a string, and convert between numeric, ASCII, and string characters. These func- 
tions take one, two, or three arguments. Here are some examples: 

STR$(14) Converts 14 to "14". 

LENC'ABC") Returns the length of the string. 3 is returned since the 
string has three characters. 
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LEN(A$+B$) Returns the combined length of the two strings. 
LEFT$(ST$,1) Returns the leftmost character of the string ST$. 

The following functions constitute the format function group: 

SPC Space over. 

TAB Tab over. 

POS Next print position. 

You will use format functions to display or print information using any 
desired format. SPC and TAB take a single numeric argument. POS uses a dummy 
argument of 0. 

Examples: 

SPC(10) Move cursor over 10 spaces. 

TAB(A) Move cursor to column A+1. 

Finally there are some "system" functions you will not use until you are a 
more experienced programmer. The system function group includes these 
functions: 

PEEK Fetches the contents of a memory byte. 

TI$,TI Fetches System Time, as maintained by a program clock. 

FRE Returns available Free Space — the number of unused 

read/write memory bytes. 

SYS Transfers to Subsystem. 

USR Transfers to User Assembly Language Program. 

System functions are useful only in certain classes of special programming. 
They are not used in typical PET programs. 

PET BASIC also allows you to define your own functions with the DEF 
FN function. 

These functions are all described in detail in Chapter 4. 
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FILE NAMES 

Another different and important use of PET alphabetic and numeric charac- 
ters is in the creation of file names. 

Since information cannot be held forever in the PET's read/write memory, 
you must store this information elsewhere — usually on cassettes, although alter- 
natives, such as diskettes, are now available. Cassettes and diskettes both have 
magnetic surfaces on which information is stored magnetically. Information may 
consist of programs or data used by programs. In either case the cassette or disk- 
ette is the magnetic equivalent of a filing cabinet, and the program or data is 
therefore referred to as a file. A program or data file is, physically, a piece of mag- 
netic surface on which the program or data has been stored. You do not need to 
know how or where your program or data is stored, because when you need it, 
you ask for it by name When you first record a file, you assign it a file name. 
Subsequently you use the file name to identify the program or data, so that 
the PET can read it back into read/write memory. 

When you buy a pre-programmed tape, it usually has several programs on 
each side. Each program has a file name. You can load the program you want to 
run by specifying the name of the program in an appropriate PET command. For 
example, suppose a tape has programs stored in this order: 

GAME 1 

HIHO 

BURGLAR 



You want to play HIHO. The LOAD command tells the PET to load a file from 
cassette tape into the PET's read/write memory. To load HIHO into the PET's read/ 
write memory, type in the command: 

LOAD "HIHO" 

The PET will find GAME 1 first; but continues searching for the program with the 
name HIHO. It finds it on the second try and loads the program into read/write 
memory. 

If the file name is not specified in a LOAD command, the PET loads the 
first program it finds. 

LOAD! 

Heck, who cares? 
lets just load 
the first one we 
come TO! 
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So if you don't specify the file name, you will have to give multiple LOAD com- 
mands, one for each program up to the one you want loaded. 
Unlike regular variable names, a file name can have up to 128 significant charac- 
ters. However, the length is effectively limited to two display lines when typing in 
file names from the keyboard. Characters in a file name may be any alphanumeric 
or numeric characters. Here are some examples: 

TEST PROGRAM 1 
TP1 

EGGHEAD 
XYZ 
X1 
X2 
You can abbreviate the file name in the LOAD command. The command: 

LOAD "TEST" 
would load TEST PROGRAM 1. 

LOAD "XY" 
would load XYZ. However, 

LOAD "X" 

would load XYZ, X1, or X2, whichever the PET encountered first on the tape. 
The abbreviated file name (like XY and X above) does not have to be the first 
characters in the file name. The PET searches for a file name match on a 
character-by-character basis. 

This can be a boon if, say, you have forgotten the exact file names of several pro- 
grams, but you think you saved them as: 

PROG 1 
PROG 2 
PROG 3 
PROG 4 

when in fact you had actually saved them as: 

PGM 1 

PGM 2 

PGM 3 

PGM 4 
You want to load the last program of the bunch, so you try the command: 

LOAD "PROG 4" 

The PET will go right past PGM 4 without loading it, since the file names do not 
match. Of course, you could give successive LOAD commands without specifying 
a file name. But you can also try the command: 

LOAD "4" 
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Since no previous program has the character 4 in it, PGM 4 will be loaded. 
Because of the character-by-character search for file name matches, you have to 
be careful when giving abbreviated names, especially if your file names are long. 
For example, suppose you save three programs successively as: 

WHILE AWAY THE HOURS 
WHILE A 
WHILE B 

You will not be able to load the second program with a LOAD "WHILE A" com- 
mand. The first program would always be loaded, since it contains that character 
subgroup. 

There is something else you must bear in mind when you make up file names. 
Although the file name may have up to 128 characters, only the first 16 
characters are displayed by the PET. If you save two programs successively as: 

SWEET SIXTEEN TEST 1 
SWEET SIXTEEN TEST 2 

the programs are subsequently listed as: 

SWEET SIXTEEN TE 
SWEET SIXTEEN TE 

so you can't tell which is which by examining file names as they are displayed. 
In summary, you will find it helpful to compose file names using 16 characters or 
less, and you should keep file names about the same length. 



WRITING BASIC PROGRAMS 

A BASIC program consists of a group of numbered statements. In con- 
trast to immediate mode, statements within a program are not executed un- 
til you "run" the program. In other words, when you type in program state- 
ments, nothing happens until you specifically initiate program execution. When a 
statement begins with a line number, PET BASIC stores the statement rather than 
executing it immediately. A line number is put on a statement to indicate that it is 
part of a stored program. 

LINE NUMBERS 

Every program statement begins with a line number that must be 
unique within the program and therefore uniquely identifies the statement. 
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A BASIC statement becomes part of a program if you begin the state- 
ment with a line number. The number becomes the statement's identification, 
just as numbers are used to identify individual houses on a street. For example, if 
you type: 

10 fl=fT*2 

instead of: 

Fi=ir*2 

you create a statement that becomes part of a program that will not execute until 
you specifically run the program. 

Every statement in a BASIC program must have a line number. The numeri- 
cal value of the line number specifies the order in which the statements in 
the stored program are to be executed when the program is run. The smallest 
line number identifies the first statement in the program and the largest line 
number identifies the last statement in the program. Statements in between 
will be organized in order of ascending number sequence. The PET BASIC in- 
terpreter takes care of that for you. If you enter a statement out of its number se- 
quence, the BASIC interpreter will move the number to its correct sequential posi- 
tion (whether you want it there or not). 

Remember, the PET BASIC interpreter will always arrange BASIC state- 
ments in ascending order of line numbers. A number at the beginning of a 
BASIC statement puts the statement into a program which does nothing until you 
deliberately run it. When running a program, statements are executed one at a 
time. Statements are executed in sequence of ascending statement numbers 
(unless a statement explicitly changes the execution sequence by branching to a 
statement elsewhere in the program). 



110 
120 
123 
129 
137 



On the PET, a line number can be any integer from to 63999. 

< line number < 63999. 
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Programs and Immediate Mode 

Let us look at how immediate mode can be used to examine values 
assigned to labeled variables within a program. 

If statement 120 below were in a program and you wished to find out the 
value of the component variables in that statement, you could use calculator 
mode to print them. 
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Program stored 
' in memory 



120 fi=£*C/ri 
333 END 

REflDV. 
"■B,C,D 



This illustration assumes that when the program ends, B is assigned the 
value 15, C is assigned the value 1, and D is assigned the value 8. 

The current values of variables remain available until you begin a new pro- 
gram, or rerun the same program. 

BASIC STATEMENT GROUPS 

We are now going to describe the various BASIC statements that you may 
use in a PET program. PET BASIC statements are described twice: 

1. In the balance of this chapter we will describe PET BASIC statements 
briefly by functional groups. This description is intended to familiarize 
you with the types of capabilities available in PET BASIC without 
becoming buried in detail. This description is also sufficient to provide 
background for the discussion of programming concepts that follows. 

2. In Chapter 4 we describe PET BASIC statements individually, with full 
detail. 

While reviewing these statements, remember that PE.T BASIC has a number 
of "characteristics" that give it a unique personality. These characteristics are de- 
scribed in Chapter 5. 
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Unconditional Branches: GOTO, FOR . . . NEXT, GOSUB/RETURN 

Unconditional branches change the flow of program execution from the 
next sequential statement to a specified statement. 

GOTO is the simplest unconditional branch. It designates a line number at 
which program execution is to continue. 

ere- .-|-,-r-|-| 100 Transfer program control to the statement 

with line number 100. 

FOR . . . NEXT provides loop control; the statements between the FOR 
statement and the NEXT statement are executed as many times as specified by 
the FOR index variable. 

10 FOR 1 = 1 TO 10 These statements will print the numbers 1 

20 ?I through 10 in a vertical column on the 

30 NEXT I display screen. 

The optional word STEP specifies the size of the increment to be added to 
the loop index. 

10 FOR I = l@ TO ISO STEP 18 These statements print the 
50 ? I numbers 1 0, 20. 30. ... 1 00 

30 NEXT I on the display screen. 

GOSUB and RETURN provide the means of branching program control to a 
subroutine and then returning to the statement immediately following the 
subroutine call. 

Subroutine: 

1000 FOR I=fl TO Z STEP S 
1010 PRINT I 
1020 NEXT I 
1030 RETURN 

Calls: 

50 1=1=1 :Z=10 : S=1 

60 GOSUE 10O0 

200 . fl= 1 : Z- 1 00 : S= 1 
210 GOSUB 1000 

993 END 

These statements illustrate the PRINT loop introduced above structured as a 
subroutine. The first subroutine call will print the numbers 1 through 10 (as in the 
first FOR . . . NEXT loop example). The second subroutine call will print the values 
10, 20. 30, ... 100 as in the second FOR . . . NEXT loop example. 
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IF . . . THEN is the primary decision making tool in PET BASIC programs. It 
has two parts: a condition to be tested placed just after the IF; and if the condi- 
tion is satisfied, one or more actions to be taken placed after the THEN. We have 
already used this statement frequently. Here are a few more examples: 



i@ IF fl=B+5 THEN PRINT MSG1 

46 IF CC#<"M" THEN IN=0 

41 IF Q<14 AND MOM1 GOTO 66 



ON . . . GOTO and ON . . . GOSUB provide a multiple branch capability. The 
following example provides a three-way branch to line 10, 72, or 50 depending on 
hether A=1, 2, or 3, respectively. If A is not in this range, no branch is taken. 



w 

40 ON fi GOTO 10,72.. 50 



Defining Data: LET . . . =, READ/DATA/RESTORE, DIM 

Statements for defining data allow you to specify constant data, assign 
values to variables, and dimension arrays. 

The assignment statement LET . . . =, or just =, is probably the most com- 
mon BASIC statement. The word LET is optional and is usually omitted. 

10 1=1=10 

20 B=X+V-Zt3 

<£-j B;-, 'sii4.. £.)— HL -In this statement only the second = is an 

21 FOR 1 = 1 TO 10 = 0< I >-X+l^ assignment 8tatem ent 

The READ statement assigns to variables the values contained in accom- 
panying DATA statements. 

1 HflTfl 1 , 20 , -4 , 1 6E6 
20 REFlD fl,B.. C..D 

RESTORE restarts the next READ at the beginning of the first DATA state- 
ment. 

30 RESTORE 

40 FOR 1 = 1 TO 4 REflU R < I > 

The dimension statement DIM declares the size and dimension of arrays. 
100 DIM FK3> 



Console Input/Output: PRINT, INPUT, GET 

Console input/output statements provide the ability to interact with the 
keyboard/display screen during program execution. 

PRINT prints data on the display screen. PRINT and ? are equivalent. 

10 PRINT "HOME" 
30 ?fl;B,C 
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Both INPUT and GET input data from the keyboard to a program. INPUT first 
prints a question mark, then inputs a line of data, terminated by a carriage return. 
One or more variables may be input with one INPUT statement. 

In response to execution of the statement: 
lee© INPUT fi,B$ 

if the following is input at the keyboard: 

10, "SIMPLE ONE" 
then A=10 and B$="SIMPLE ONE". 

INPUT can also print a message before inputting: 

4001 INPUT " NAME ".: fit 
Upon execution, this statement prints on the display: 

NAME? 
If you enter the name Susanna: 

HP,ME?SUSPlNNfi 
the result is that A$=SUSANNA. 

GET inputs one character only. This is useful when you want just one- 
character responses, since the user does not need to enter a carriage return. 

Unlike INPUT, where PET BASIC handles the input process, you must pro- 
gram everything yourself when using GET. Your program must wait for a key to be 
pressed and then check to see if an appropriate key has been pressed. Use a string 
variable with GET. If you use a numeric variable, the PET returns a zero either if no 
key has yet been pressed or if a zero is entered. When the GET variable is a string, 
a null value is returned until a key is struck. The character you input in response to 
a GET will not be displayed unless you include a statement to cause the display. 

The following line waits until any key is pressed: 

10 GET C*IF C*="" GOTO 10 

The following group prints a message and waits until a G is pressed on the 
keyboard. It does not respond to any other key. When a G is pressed, it displays 
the character, waits a little bit, then clears the screen and prints the message 
"HERE WE GO." 

50© PRINT "PRESS G WHEN REflBV" 

510 GET C$IF C*OG THEN GOTO 510 

520 PRINT C$ 

530 FOR 1-1 TG 100: NEXT 

540 PRINT ".THERE WE GO" 



File Input/Output: OPEN, CLOSE, PRINT#, CMD, INPUT#, GET# 

File input/output statements provide programmed communication with the 
cassette tape unit or any other external peripheral unit that can input and/or out- 
put data. 

OPEN assigns an identifier, called a logical file number, to a physical device 

and readies the physical device for an input/output operation. Physical devices 

have preassigned numbers. Logical file numbers are made up by the programmer, 

just as variable names are. 

10 OPEN 5. 1.-0; "DfiTFlFILE" Assigns logical unit 5 to physical device 1 

(the console cassette unit) and opens the 
cassette for read (code 0) from file name 
DATAFILE. 

CLOSE is executed when all accesses to the logical file have been com- 
pleted. 

500 CLOSE 5 Close logical file 5. 

PRINT# operates essentially like PRINT but outputs to an external device. 
40 PRINT#3.. fi Output the value of variable A to logical file 3. 

CMD opens communication with an external device so that you can print to 
an external device what is normally displayed on the screen. 

40 CMD 3 Output subsequent log to logical file 3. 

INPUT# operates somewhat like READ, but it inputs data from an external 
file rather than from DATA statements in the program, as READ does. 

SO lHPUT#10,fl Input and assign to variable A the next data 
item from logical file 10. 

GET# allows you to fetch external data one character at a time. 

SO GET#7,C* Input and assign to variable C$ the next data 

item from logical file 7. 

None of these statements is used alone in a program; rather, successful in- 
put or output to an external device requires a certain sequence of file input/output 
statements, all having compatible parameters, that together provide an input or 
output capability. The format of these statements is described in Chapter 4. Using 
these statements to perform file I/O operations is described further in Chapter 5, 
File Input/Output. 

Miscellaneous: REM, POKE 

REM is a remark, or comment line. Remarks should be used frequently in a 
program to remind the programmer what is happening. 
10 REM FETCH DATA IF BUFFER EMPTY 
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POKE stores a specified byte value into the PET's memory. POKE is similar 
to a system function in that it is instrumental in performing certain specialized 
chores; these are described in Chapters 5 and 6. POKE is not used often. 

56 POKE i.. flD Store the value of variable AD in memory 

location 1. 



Program Termination: END, STOP, WAIT 

Program termination statements end, or temporarily halt, a PET BASIC pro- 
gram that is executing. These statements are optional; in particular, an END state- 
ment is not required to end a PET BASIC program. 

Examples: 

506 END Provides two program termination points. 



600 END 

60 STOP Performs a programmed BREAK function, like 

the STOP key from the keyboard. Program 
execution can be continued by typing CONT 
from the keyboard. 

100 WRIT 525.. l Wait until memory location 525 becomes 1, 

then continue program execution. WAIT is a 
special statement not used in normal program- 
ming chores. 

BASIC Commands: NEW, CLR, LIST, LOAD, RUN, CONT, SAVE, 
VERIFY 

BASIC commands are a group of operations that are normally used in im- 
mediate mode. 

Examples: 

NEW Start new program; set variables to zero or null. 

CLR Set variable to zero or null. 

LIST List current program. 

LOAD "ASKME" Search tape for program named ASKME and 

load it into memory. 

RUN Execute program. 

CONT Continue program execution at line following 

last STOP. 

SAVE "PETPRO" Write current program to tape cassette unit. 
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VERIFY "PETPRO" Verify the tape copy of the program named 

PETPRO by comparing it with the program in 
memory. 

DEVELOPING A PROGRAM 

When the PET is powered up it is in immediate, or calculator mode. Entering 
program mode is simple: just begin entering statements that are preceded by line 
numbers. Remember that programs are executed in the ascending order of the 
line numbers, which can range from to 63999. 

You will find when developing a program that you will have to change, or 
edit, your program at least a little, and probably a lot, before you get it running. 
Because of this, it is helpful to select line numbers that increment by 5, 10, or 
even 100, rather than incrementing by 1. If you have to insert, say, three state- 
ments between two existing lines of a program, you can do so without having to 
renumber any of the existing lines. Do not renumber existing lines in a program 
unless you absolutely have to; it is easy to cause errors in loops and GOTO state- 
ments by not changing the line number everywhere it is referenced. 

You will normally key in statements, from your handwritten notes, in the 
order in which they are to be executed. However, PET BASIC does not require 
statements to be entered in order. You could key in statement 10, then statement 
100, then statement 20. The PET sequences the statements by line number before 
listing or executing the program. 

We return now to the "mini-program" presented at the beginning of this 
chapter. 

C*= " W " FOR 1 = 1 TO see ■ ?C* .; : NEXT : ? " PHEW ! " 

This line entered in immediate mode prints the letter W (or whatever 
character you put between the quotes) in each position of the next twenty lines of 
the display screen. It ends by printing the word PHEW!. 

We will describe in a little more detail how this immediate program works. 
Then we will develop this program into a stored program to illustrate the process 
so that you will feel more comfortable approaching the task of creating, listing, 
running, debugging, and editing programs on the PET. 

Multiple Statements on a Line 

There are actually five statements in this one-line immediate mode program. 
Each statement is separated by a colon (:). The format for multiple statements on 
a line in immediate mode is: 

statement:statement . . . statement 

The format is the same for one line of a stored program, except that the line 
has a line number: 

line number statementstatement . . . statement 



Only one line number is needed for multiple statements placed on one 
line. 

In immediate mode, you must put multiple statements on one line. If you at- 
tempted to enter the display program one statement at a time, the result would 
not be the same. Look at the following example: 

C*="W" 

REflDV. 

FOR 1=1 TO 80S 

REflDV. 

W 

REflDV. 
NEXT 

REflDV. 
?"PHEW! " 
PHEW! 

REflDV. 



The first statement can be entered separately, since variable assignments 
are stored. But just one W is printed, instead of twenty lines of W's, because the 
FOR . . . NEXT loop statements are not executed as a unit. In immediate mode, the 
PET executes one line with no memory of what the previous line was. The only 
successes were the assignment statement C$="A" and the ?"PHEW!". In im- 
mediate mode you do access to the current values of all variables. Colons can be 
used to execute "mini-programs" up to 80 characters (two display lines) long in 
immediate mode. 

In program mode, putting multiple statements on one line is handy for some 
uses, but is indispensable in only one case. 

Where two, or sometimes more, statements perform a single operation, they 
can optionally be placed on one line and separated by colons: 

10 GET C*=IF C*="" GOTO 10 

or 

10 GET C* 

20 IF C$="" GOTO 10 

The only case in a stored program where multiple statements on one line are 
treated differently than the same statements on separate lines is with an IF state- 
ment. Multiple statements appearing after the IF . . . THEN statement are ex- 
ecuted only where the IF condition is satisfied. Consider the following line: 

50 IF fl=@ THEN E-C-C=C+1 



85 



Here there is a second statement following the IF . . . THEN statement. If the con- 
dition is satisfied (A is equal to 0), both B=C and C=C+1 are executed. If the con- 
dition is not satisfied (A is not equal to 0) neither of these actions is executed. 
Note particularly that C is not incremented, whereas for the statements: 

50 IF fl=S THEN E=C 
55 C=C+1 

C is incremented whether or not the IF condition is satisfied, since it is on a sepa- 
rate line from the IF . . . THEN statement. 

Multiple statements on one line in a program save some memory space, 
since there is only one line number to keep track of. In the general case, it is sug- 
gested that you do not make greater use of multiple statements on a line than 
necessary, as in the case of performing several actions for a single IF condition. 
Compacted programs are difficult to read, edit, and debug (errors in programs are 
commonly referred to as "bugs," therefore the term "debug" means to eliminate 
errors). 

PRINT Formats: Line, Continuous, Tabbed 

Normally each PRINT statement prints a new line on the display. That is. 
a RETURN is forced, so that the next PRINT statement begins printing at the 
beginning of the next line. This can be overridden by placing a semicolon (;) at 

the end of the PRINT statement. There is an example of this in the display pro- 
gram: 

C*= " W " = FOR 1^1 TO ©00: ? C* ; : NEXT ■ ? " PHEW ! " 

I Continuous line format (;) 

The semicolon in this PRINT statement is what provides continuous line 
printing of the character over 20 lines of the display. If the semicolon were not 
there, each character would be printed at the beginning of a new line, or you 
would see all 800 W's printed in a single column at the left of the screen. 
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C*="W":FOR 1=1 TO 800:? C* : NEXT'?" PHEW ! " 

W 

W 

W 

W 

W 



W 
W 
W 
W 
W 



Display appears to blink 
as W's are written over W's 



W 
W 

w 
14 
w 

PHEW! 
READY. 

The display appears to blink as W's are written over W's. After twenty lines 
have been printed, the program statements scroll off the top of the screen. To stop 
the overprinting of W's, change the TO index from 800 to 20 (since we are always 
printing a total of 20 lines in the program). 

C*="W":FOR 1 = 1 TO 20 ■? C#; : NEXT? "PHEW! " 
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C*="W":FOR 1=1 TO 20:? C*= NEXT:?" PHEW! " 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

W 

w 
w 
w 

PHEW ! 
REflDV. 

m 

This is not nearly as interesting a display as continuous line printing of the 
characters. Single line printing is more commonly done for different values. If you 
print the value of I rather than C$ you can print the numbers 1 through 20. 

FOR 1 = 1 TO 20:? I : NEXT:?" PHEW! "' 
1 
2 
3 
4 
5 
6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
PHEW ! 



REflDV. 



Return now to the original program line that gives continuous line printing 
by the presence of a semicolon. 

C*="W" :FOR 1=1 TO 80@:? C*; = NEXT: 7" PHEW!" 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

wwt««wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
WWWWWl.M'M4WU'4WWWWWWWWWWWWWWWWWWWWWWWWWW 

wt.n.njwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWWWIMWIMWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

wwwwwiwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

WWWWW^MJWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
WI.MMWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

PHEW ! 
REPDV. 



The FOR . . . NEXT loop index I is used as a counter to indicate the number of 
W's to be printed, in this case 800. For the first PRINT, a new line is begun and the 
character W is printed. The semicolon prevents a RETURN to the next line, so the 
cursor remains at the position following the first W. The second W is then printed, 
with the cursor left in the position following it, and this pattern continues. At the 
end of the line, the cursor moves to the next position, which is at the beginning of 
the next line. This is continuous for 20 lines. 

Why does PHEW! print on a new line? It doesn't really; it appears to start a 
new line because the last character prints in the last position of the previous line. 
Modify the value of 800 to, say, 780 and PHEW! prints on the same line as the end 
of the characters. Reenter the line to get the display shown below. 

C*="-":FOR 1 = 1 TO 780:?C*.; •• NEXT:? "PHEW! " 
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C$="-":FOR 1=1 TO 780:?C*J -NEXT: ?" PHEW! 1 



PHEW ! 

REflDV. 



Concatenation, or printing items right next to each other with no 
spaces in between, is how the semicolon works for string data. Numeric data 
also prints in a continuous line format, but with a space between the num- 
bers (two spaces if a positive number, since the + sign is not printed). 

To illustrate this, change the string variable to numeric for entry of any posi- 
tive or negative one-digit number; and, since three positions will be taken for 
each number, change the ending index to 800/3=267. The line will look like this, 
selecting 5 as the number to be printed: 

C=+5'FOR 1 = 1 TO 267 ?C,' : NEXT ?"PHEW! " 
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C=+5 : FOR 1 = 1 TO 267 ■ ?C ; : NEXT = ? " PHEW ! " 

55555555555555 
555555555555 5" 
55555555555 55" 
5 5 5555555555 5 5 
555555555555 5" 
555555555555 5" 
5 55555 5 5 5 5 5 5~ 5" 5 
5 5 5 5 5 5 5 5 5 5 5 5" 5" 
5 5 5 5 5 5 5 5 5 5 5" 5" 5" 
5 5555555555 5" 5" 5 
55555555555 5~ 5" 
5555555555555 
555555555555 55 
5555555555 5*" 5" 5" 
5555555555 5" 5" g" 
5 5555555555 5~ 5" 5 
55555555555 f=i" 5" 
55555555555 55" 
55555555555 5 5" s 
PHEW! 

REflDV. 



When you run this program, note that there is one space between the last 
number printed and the word PHEW! This shows that the numbers are printed in 
the following format: 



Position 1 2 3 
± n 

L 



-Space 

Blank if positive, 

- if negative 

Another example of this format can be obtained by changing the value of C 
to minus 1 : 

C=-l FOR 1 = 1 TO 267 : ?C.: NEXT : ?"PHEW ! " 
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C=-1F0R 1=1 TO 267-7C; : NEXT:?" PHEW! " 































PHEW ! 
READY. 

m 

Up to now the program line has printed just single characters or single 
digits. Multiple-digit numbers can be printed, but they will scroll the program line 
up off the screen unless the TO index is also adjusted. If we change the value of C 
to 2001, we will have a 6-digit print field, so adjust the TO index from 267 to 
800/6=134: 

C=2001'FOR 1 = 1 TO 134:?C; : NEXT ■•?" PHEW! " 
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C=2001=FOR 1 = 1 TO 134 :?C: : NEXT :? "PHEW! " 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2901 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 
2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 PHEW! 

RERDV. 



When you print this example, you can see that the continuous line format 
breaks the numbers between lines. This can be eliminated by using a tabbed line 
format. 

The tabbed line format, indicated by a comma (,), prints at four tab posi- 
tions every ten positions: 

1 11 21 31 



1 Leftmost position=1 

In the display program, inserting a comma in the PRINT statement, in- 
stead of a semicolon, causes the numbers to be printed out in four columns. At 

four numbers per line, the TO index will be 4*20=80. Type in the line: 
C=200 1 ■ FOR 1=1 TO 86 : ?C , : NEXT : ? " PHEW ! " 

When you run this program, note that the first position in each field is 
reserved for the sign. 
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0=2001: FOR 1 = 1 TO 80 ■?£■.. : NEXT : ?"PHEW ! " 



2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


200 1 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


200 1 


2001 


2001 


200 1 


2001 


2001 


2001 


2001 


200 1 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


2001 


200 1 


2001 


200 1 


2001 


2001 


PHEW ! 









REHDV. 

The use of commas between print items is a convenient way to print with 
tabs in PET BASIC. You don't have to do anything in your program except use 
commas to separate print items. 

Tabs also work for strings. As an example, enter the following immediate 
mode lines to print out twenty lines of tabbed character data: 

fi*="HUP ! " : B*="TWO ! " : C*=" THREE ! " : 11*= "FOUR ! " 
FOR 1=1 TO 20 ■ ?fi* , B* , C# , D* : NEXT : ? " PHEW ! " 

We use continuous line printing in the display program line because it is the 
most effective of the three print formats — single line printing, continuous line 
printing (;), or tabbed printing (,) — for the display program. As we have seen, 
numeric data does not blanket the screen, even with continuous line printing, 
because PET BASIC leaves a space between the numbers. 
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To discover some other features of PET printing, return to the display for the 
number 2001. 

C=2001=FOR 1 = 1 TO 134 ; ?C: : NEXT: ?"PHEW! " 
2001 2001 2001 2801 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 
2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2081 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2801 2001 2001 2081 200 
1 2001 2001 2001 2001 2001 2001 2 
001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 
1 2001 2001 2001 2001 2001 2001 2 
001 PHEW! 

READY. 

m 

Now change the value of C from 2001 to 44 following these instruc- 
tions: HOME the cursor, CURSOR RIGHT two positions and type in 44, CURSOR 
RIGHT once and DELETE twice. With a 2-digit number, the print field is 4 (one for 
the sign, two for the number, and one trailing space), so the TO index will end at 
800/4=200). Change the TO index from 134 to 200: CURSOR RIGHT ten spaces 
to position the cursor on the 1 of 134 and type in 200. Now press RETURN and 
(surprise!) you will get the display shown below. 
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C=44=F0R 1=1 TO 286 :?C^ NEXT:? "PHEW ! " 
440 442 44 44© 442 44 440 442 44 440 
442 44 440 442 44 440 442 44 440 442 
44 440 442 44 440 442 44 440 442 44 
440 442 44 440 442 44 440 442 44 440 
442 44 440 442 44 440 442 44 440 442 
44 440 442 44 440 442 44 440 442 44 



440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 
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44 
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44 
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44 
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442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


44© 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


44 


440 


442 


PHEW 


! HEW 


! 
















REfiDV. 



















Some of the digits from the previous 2001 display were not blanked out. 
PET BASIC uses a skip (cursor right) character, not blanks, between fields. 
When you are printing over existing data, characters between fields — or 
characters in tabbed format — are not erased. Also note that there is a remain- 
ing "HEW!"; PET BASIC prints the "PHEW!" but leaves the remaining positions of 
the line just as they were; it does not blank the rest of the line. This can be a 
great advantage when you are adding to data already on the screen, and you 
should bear this capability in mind. For the display program line, however, it is 
leaving extraneous characters in the display. 

Programmed Cursor Control 

To remove extraneous characters from the display, you can have the 
program clear the screen before printing a new display. To do this, insert a 
PRINT CLEAR SCREEN literal ahead of the FOR . . . NEXT loop: 

,;:=44 ? " n" : FOR 1 = 1 TO 200 : ?C* .: : NEXT ■?" PHEW ! " 
Clear Screen (shift of CLR/HOME key) 
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Now when you press RETURN, you will see the screen blank and the num- 
bers begin printing on the second line. 
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44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


44 


PHEW 


! 


















READY. 



















To begin printing on the first line, insert a semicolon after the PRINT CLEAR 
SCREEN. Change the program now to print characters again. With the extra line 
of forty characters, the program can print 840 characters without scrolling any off 
the top. Type in the line: 

C*="R" : ?"7i":. ■ FOR 1= 1T9S40 : ?C*; : NEXT • ?"PHEW ! " 

The only real change from the original line is the CLEAR SCREEN. The 
CLEAR SCREEN adds a nice touch to the display program. The display blanks im- 
mediately, instead of gradually scrolling previous text off the top. End the same 
line again with the same character. You get a new display with every character 
reprinted instead of having duplicate characters appear not to be printed again. 

Any of the six cursor control functions can be operated under pro- 
grammed control by printing them as string literals. The cursor control string 
symbols and keys are listed in Table 3-1. Programming cursor controls is de- 
scribed in Chapter 5. 



A Stored Program 

The biggest problem with a program entered in immediate mode is that 
you have to reenter it every time you want to run it, as with the display pro- 
gram. The solution is to turn it into a stored program. 
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The program has already been developed in immediate mode. Now that the 
groundwork is done, making a stored program out of the program that we know 
works in immediate mode is simple. Just type in the statements line by line, 
beginning each statement with an increasingly larger line number. Remember 
that you still need the semicolons, which are the PRINT format, but not the colons 
when putting statements one per line. Terminate each line with a RETURN. 

READY. 

100 c*="fl" 

lie ?"7i":. 

128 FOR 1=1 TO 340 

130 PRINT C*; 

140 NEXT 

150 PR I NT "PHEW! " 

Each time a numbered line is entered, PET stores the line in memory. You 
will not have to type the display program line in again now that it is a stored pro- 
gram. You then use the LIST, RUN, and SAVE commands to recall and rerun your 
program. 

Listing a Program 

When the display program looks correct, list it and look it over again. To list 
a program, type the word LIST on any free line and hit RETURN. 

LIST 

100 C*="A" 

110 ?"T; 

120 FOR 1=1 TO 340 

130 PRINT C*.; 

140 NEXT 

150 PRINT"PHEW! " 

READY. 

Note that the ?'s you entered have been expanded to the word PRINT; PET 
does this automatically. If you see any errors, correct them. 

Running a Program 

When the program looks completely correct, execute the program by typing 
RUN. followed by a RETURN. 

RUN 

If the program was typed in correctly, you should see the same display we 
have used throughout this chapter, only with the letter A. 



98 



flflflflflflflfififlflflflflflflfiflflftflflflflflflfiflflflflflflftflfiflflfifl 
flflfiflflftfififlfiflfiflflflflflftflRfififlflfilflflflflFlftfiflfiflflflfiflR 
flfiflflRRRflflflRRflflflflflflflflflflflflflflRflflflflflflRRRflRRR 
flflflflflflRflflflflflflRRflflflflflflflflflflRRRflflflflflflflflflflflfl 
fiRfiflRflflRflflRfiflfiflflflfififlflflRfiRflflflRfiRRRflRflflRfifi 
RRflflflflflflRflflflflRflflflflRflRflflflflflflflflRflflRflflflflflflfl 
RfiflflflflflflflfiflftRflflflflflflflflfiflflflflRFlftflRflflflflfiflflflFl 
RRflRRRflRRflflflflflRflflflflflflflflflflflflflflRRflflRflRflflflR 
RflflFlflfififlflflflflfiflflflflFlfiRfilfiFlPlflRflfiflFlflFlFlflflFlFlfiflfl 
flRflflflRRRflRflflRflflflflflflflflflflflflflRflflflflRflflRRflflflfl 
AflflflFlRflfiflflflPKilPlflftflflFlPlflftflflflPlflfHflflFlflflflflflFIFIflfl 
flflflflflfiflflflflflflflflflflflfiflftftfiRfiflflflflflflflflflflRflflflflR 
FlflflflflflflflflFlflFIRflflflflFlfiflPlfififlflfififlflflflftFlflFlflflflFiR 
RfiflRflRflflRflflflflflflflflRflRRRflflRRRRRflRRflflRflflRRR 
RRRflRflRflRflflRflRflflRRRRflflflRRRflRflflRRRRflflflfiflR 
RRRRRRRRRRRftfilRRRRflRflftRRRRFlfiftRRRRFlflFIRFfftftR 
flfiflflflflflflflflflflflfiflRflfiflfiflflflflflFlflRflfWfiflflfiflflflflfi 
RRRRRRRRfiRRRHRRfiRRRRHRRflf^ftRRHRFlfiflftRRFiRRFl 
RRRfiRRRRRRRRRRRRflRRRRRRRRfiRRRRRRFififtRRFlRFl 
RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
PHEW ! 

REflBV. 

Enter RUN to run the program again. The program executes the same as 
before, without having to type in the display program line. 



Editing a Program 

Running the program to display A's quickly becomes boring. You can 
change the display character by editing line 1 00. To edit a line, the line must ap- 
pear on the screen. You don't need to list the entire program, just one line. To list 
just one line (line 100, for example), use the following command: 

LIST 100 
This lists just the line specified. 
LIST 100 

106 C:*="fl" 
REFlDV. 

m 
Move the cursor to the A, change it to another character, say X, and press 
RETURN. If you list the entire program, you will see that the change has indeed 
been made. Program editing can be done merely by changing a statement that 
appears on the screen, then pressing RETURN. 
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LIST 



100 


C*="X* 




110 


■■^t It ""^ll - 




120 


FOR 1^ 


= 1 TO 


130 


PRINT 


C*; 


140 


NEXT 




150 


PRINT' 


•PHEW ! 
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To delete an entire line, type the line number followed immediately by a 
RETURN. When you list the program, you will see that the entire line and line 
number are no longer included in the program. 

To add a line in a program, type in the line, no matter what the line num- 
ber, at the first blank line after the end of the current program. When you list 
the program, you will see that the line you just entered has been placed in its 
proper numerical sequence within the program. 

When you type in a line with the same line number as a line that already 
exists in the program, the new line replaces the existing line in the program 
after you press RETURN. You can use this feature to edit lines that are easier to 
change by retyping than by character correction techniques. 

Saving a Program 

Now that you have a program in PET's memory that works, you can store 
the program on a cassette. Once a program is stored on cassette, you can 
load it into memory and run it any time. 

To save a program in memory on cassette, put a blank cassette tape in 
the console cassette unit and type the SAVE command. Although it is not 
necessary, it is a good idea to name the program; we'll name it BLANKET. 

SAVE "BLANKET" 

PRESS PLP.V & RECORD ON TAPE # 1 -* Hold down REC key, 

0K then press PLAY key. 

WRITING BLANKET 

READV. « Tape stops. 

Rewind the tape to the beginning, label it and keep it in a safe place. 

When you turn the PET off, the contents of memory are not saved, so saving 
a program (especially a working program) on tape is a good idea even at inter- 
mediate stages of program development. 

Loading a Saved Program 

If you turn the PET off, the program in memory is lost. To load the saved 
program, power up the PET, insert the cassette into the console tape unit, 
and give the LOAD command. 
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LOAD "BLANKET" 

PRESS PLAY ON TAPE #1 
OK 



■ Press PLAY key; tape begins moving. 



-Tape stops. 



SEARCHING FOR BLANKET 

FOUND BLANKET 

LOADING 

READV . -. 

m 

To list the program, use the LIST command. You should see your entire 
BLANKET program. To execute the program, enter RUN. It will display the 
character that was last stored in line 100. 

Or, to load and execute a program from cassette tape with the RUN key, 
ready the tape and depress the RUN key. The program will load and execute. 

Interactive Programming 

This is the current procedure for using program BLANKET once you load it 
into memory: 

1. List line 100. 

2. Move the cursor to the character between quotes and type the 
desired display character, then press RETURN. 

3. Enter the command RUN. 

It would be better if you could change the character without having to list 

a line of the program. Recall that assignment statements can be entered sepa- 
rately in immediate mode. Can you use an immediate mode assignment state- 
ment to change the display character? 

To try it, first eliminate the assignment statement in the program. To delete 
a program statement, type the line number followed immediately by a RETURN. 
LIST lee 



100 C*="fl" 

READV. 

10© -« 



LIST 

110 PRINT "n"; 
120 FOR 1=1 TO 840 
130 PRINT C*.: 
140 NEXT 

150 PRINT "PHEW! " 
READV. 



-Type line number, then key RETURN. 



Line 100 is no longer in the program. 

Type in the statement C$="X" in immediate mode, then run the program. 
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Before RETURN After RETURN 

C*="X" PHEW! 

REfiDV. REfiDV . 

RUNS m 

The screen blanks and the word PHEW! is printed, but the X's are not 
printed in between. Obviously the value of C$ is not being transmitted to the pro- 
gram. 

RUN clears all variables to and all strings to null before beginning execu- 
tion of a program. So C$ was set to null and that was what was printed in the pro- 
gram loop (a null is "nothing"; it does not print nor does it move the cursor). 

Is there a way to transmit the value of C$ to the program? Instead of using 
RUN, which initializes variables, you can use GOTO 1 10 (1 10 being the line num- 
ber of the first line of the program). This does not change any variable values. 
Before RETURN 
C*="X" 

REfiDV. 
GOTO 11©.^ 

After RETURN 

xxxxxxxxx:«xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PHEW ! 
REfiDV. 
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You can repeat the command GOTO 1 10 to get the same display. 
Now the procedure for running the program is as follows: 

1 . In immediate mode enter the assignment C$="y" where y is any dis- 
play character. 

2. Enter the command GOTO 1 10. 

There are only two steps in running the program, but the procedure is still a 
bit awkward. You must type in a line (the assignment statement), and if you enter 
RUN instead of GOTO you have to start all over. A much better way would be to 
have the program fetch the display character while it is running. You can do 

this with the GET statement. 

The GET statement assigns a single character entered from the keyboard to 
the specified string variable. 

When PET BASIC begins execution of the GET statement, it sets the string 
variable (in our case C$) to null, that is, C$="". As soon as a key is pressed at the 
keyboard, it assigns the character to the string variable. Since the program runs 
much faster than you can press a key, you add an IF statement to check that a key 
has been pressed before the program continues. 

Add the following line to the program by typing in the line. You do not need 
to list the program before adding the line. 

160 GET C*-'IF C*="" GOTO 100 

Now list the program and make sure you entered the line correctly. 

LIST 

100 GET C*:IF C*="" GOTO 100 
110 PRINT "3"; 
120 FOR 1=1 TO 840 
130 PRINT C*J 
140 NEXT 

150 PRINT "PHEW! " 
READY. 

Run the program. The screen blanks and the cursor disappears. Press any 
data key. You should see the display program display the character of the key you 
pressed. Run the program again. Press any data key. The display appears with the 
new character. 

The procedure for running the program is now: 

1. Enter the command RUN. 

2. Press any key. 

This is a real improvement over the original program. However, it is a little 
disconcerting to have the screen completely blank out while it waits for you to 
press a key. You can add a line to the beginning of the program that promptsthe 
user to press a key. Type in the line: 

30 ?"HIT fl KEY" 
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List the program and check the new line for any errors. 
LIST 

90 PRINT "HIT A KEV" 

106 GET C*:IF C*="" GOTO 1O0 

lie print "rr,- 

128 FOR 1=1 TO 840 
130 PRINT C*, 

149 NEXT 

150 PRINT "PHEW! " 
READY. 

Now when you run the program it gives instructions for using it, so you are 
sure of what to do. Run the program several times to display different characters 
and note how much easier the program is to use. 

There is one important modification left to make. You will want to run the 
program more than once — that is, display a character, then display another 
one, etc. By modifying the program to go back to its beginning point instead of 
ending, you won't have to type in RUN each time. Add a line at the end of the pro- 
gram to jump back to the beginning of the program: 

168 GOTO 9B 
Again, display the program and check the new line. 
LIST 



GOTO 1 00 



90 PRINT ' 


'HIT A 


KES 


100 


GET C*- IF C* 


_ 11 1 


110 


PRINT 


„~j„ . 




120 


FOR 1 = 


= 1 TO 8 


40 


138 


PRINT 


C*.; 




140 


NEXT 






150 


PRINT 


"PHEW! 


II 


160 


GOTO 90 




READS 


,'. 






.^ 









Now it is even easier to use the program. Enter RUN and follow directions. 

Of course, you have to use the STOP key to exit from the program. This 
can be eliminated by programming for one particular key, when pressed as a 
data key, to signal termination of the program. For example, if the RETURN key 
were pressed instead of a data key, the program could end. To do this, add a 
check for carriage return after a key has been pressed. 

For all data keys, as well as the cursor control keys, you can check for a 
key as a string literal. For example, to branch to statement 200 if the Y key is 
pressed, you would enter the following statements: 

100 GET C$IF C*="" GOTO 100 
105 IF C*="V" GOTO 20O 
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RETURN presents a special problem that other keys do not. You cannot reference 
RETURN as a string literal: 



t > 

R 




E 




T 
U 


., 




R 




N 





Cannot do 



This is because any time RETURN is pressed, PET BASIC stores the program line 
in memory and goes to the beginning of the next line. You can, however, use the 
CHR$ function to check for a RETURN key. CHR$ allows you to assign an ASCII 
code value to a string variable and treat it as a string. The ASCII code value for a 
RETURN (referring to Appendix A) is 13. 

Before programming the check for carriage return, consider what to do if 
there is one. The last line of the program branches back to the beginning of the 
program. To terminate program execution, you need to branch beyond that. Add 
the following line: 

i?e END 
Now add the check for RETURN as line 105: 

105 IF C*=CHR*<13> GOTO 170 

Note that we could have written, in place of line 170 and line 105: 
105 IF C*=CHR*a3> THEN END- Option 

If you choose this option, it is generally good programming practice to have 
the program termination point at the physical end of the program. It is more 
difficult to find termination points embedded in the program. 

Without the PET's READY message being printed each time, there are two 
additional lines available on the screen. This allows 80 more characters (at 40 
characters per line) to be printed. Change the 840 in line 120 to 840+80=920. 
Line 120 will read: 

120 FOR 1=1 TO 920 

List the program: it should look like this: 

LIST 



90 PRINT ' 


'HIT ft KE' 


r'" 






100 


GET C*:IF C*=" 


' GC 


TO 


100 


105 


IF C*= 


=CHR*<13> 


GOT 


O 1 


70 


110 


PRINT 


ii "nn ■ 








120 


FOR 1 = 


= 1 TO 920 








130 


PRINT 


C*.: 








140 


NEXT 










150 


PRINT 


"PHEW! " 








160 


GOTO 90 








170 


END 










REfiDV. 
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When you run the program, you will find that it is scrolling up one line, leav- 
ing a blank line at the bottom of the screen. This is because PET BASIC gives a 
RETURN after printing HIT A KEY to move to a new line in preparation for the next 
print. We can see this by enabling the cursor to blink. 

Normally you cannot see the cursor because its blinking is inhibited by the 
PET before running a program. However, you can enable the cursor to blink by 
adding the following statement to the beginning of the program: 
30 POKE 548.9 Enable cursor 

This is a system location that is discussed further in Chapter 6. Run the pro- 
gram with this line added and you will see the cursor blinking at the bottom line. 



PHEW ! 

HIT M KEV 



This program does not really need the cursor, so delete line 80. 
To prevent the blank line, add a semicolon to the PRINT statement in line 90. 
We should also add a prompt that RETURN is what is used to exit from the pro- 
gram, To incorporate these changes, line 90 should now be edited as follows: 
90 ?"HIT A KEV OR <R> TO END", 
As a final task, you might read over the program and add remarks for any 
lines that are not clear. Comment on how the number 920 was devised; you can 
optionally put the remark on the same line, using a colon to separate statements: 

120 FOR 1=1 TO 920 : REM 920/40=23 LINES 

Add a reminder that 3 is to clear the screen; optionally align the remarks: 

110 PR I NT "HI".; REM CLEAR SCREEN 

Finally, add a few lines at the beginning of the program to describe it. The final 
program BLANKET appears as follows. Save it on tape. 



10 REM ******* BLANKET ******* 
20 REM CONTINUOUS-LINE DISPLAY OF ONE 
30 REM CHARACTER ENTERED FROM THE 
40 REM KEYBOARD 

50 REM ******************************* 
90 PRINT "HIT A KEV OR CR> TO END".: 

100 GET Ct-'IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "IT.: : REM CLEAR SCREEN 

120 FOR 1=1 TO 920 : REM 928/40=23 LINES 

130 PRINT C*.: 

140 NEXT 

150 PR I NT "PHEW! " 

IS© GOTO 96 

170 END 
READY. 



Figure 3-1. Program BLANKET 
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Spaces Are Not Needed 

Are you struggling with the question of where to put spaces in the line and 
where not to? Don't worry. PET BASIC interprets a line by the elements in it. 
Spaces, or blanks, are irrelevant to the PET's decoding of a line. For example, the 
line: 

126 FOR 1=1 TO 210 

could read: 

120 FOR 1=1 TO 210 
or 

120 FORI=1TO210 

You can put extra spaces anywhere but within reserved words or other 
BASIC commands, such as GET# and INPUT#, with the exception of GOTO, 
which may be written as either GOTO or GO TO. The only place you must put 
spaces is within quotation marks where you want spaces to be part of the text 
string. Blanks in a statement are to improve readability of the program: do use 
them for this. 



Character Correction Review 

By now you are probably familiar with correcting typing errors on the PET. If 
you make any typing errors, use the three character correction methods: 

1. Typeover. If you spot an error on the line you are typing, backspace 
(cursor left) to the character and type the new, correct character over 
the old, incorrect one. Then cursor right to where you stopped and con- 
tinue typing. 

2. Delete. If you spot an error on the line you are typing, press the DELETE 
key to move the cursor back to the end of what is correct and retype the 
line from there. Use DELETE if you make an error inside quotation 
marks: other cursor control keys will not function within text strings, as 
they are programmable in the strings. 

3. Insert. If you have omitted one or more characters on the line you are 
typing, cursor left to the right edge of the omission and press the IN- 
SERT key once for each character to be inserted. Then type in the miss- 
ing characters. 

MODIFICATION EXAMPLE TASKS 

Following are some sample modifications you can make to the BLANKET 
program. The idea here is that you will be dealing with a familiar program that 
works, without trivializing the modification. Programs 1 through 4 are loosely 
classed in the easy category, programs 5 through 8 intermediate, and 9 through 
1 1 advanced. Try any or all of these modifications now or after you have finished 
reading this book. Working solutions are in Appendix C. 
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Program 1, CLEAN SCREEN. Have the program clear the screen before print- 
ing the HIT A KEY message. 



Program 2, MESSAGES. Have the program print "HIT A KEY" when the pro- 
gram is first run but then have it print "HIT A KEY OR <R> TO END" for subse- 
quent display. 

Program 3, SINGLE. Combine the last two messages of the display onto one 
line so that the program prints: 

PHEW! _-^-^ HIT A KEY 0R < R > T0 END 
10 spaces 

Have this line print on the bottom line. Increase character lines printed to 24. 

Program 4, CALLING YOU. Structure the program as a subroutine. Add a main 
program that calls the subroutine and ends the program. 

Program 5, SLOW DOWN. Slow down the display. The character display takes 
about 16 seconds to print. Lengthen this print time to about double. 

Program 6, SPEED UP. Speed up the program. The character display takes 
about 16 seconds to print. Shorten this print time. The time can be shortened, 
using PRINT, to about two seconds. 

Hint: You will need to decrease the number of PRINTs. 

Program 7, INDIAN BLANKET. Allow input and display of different characters 
while the display is being printed. Modify messages as in Program 2, but with the 
following messages: 

HIT ANY KEY 

HIT ANY KEY OR <R> TO END 

At the same time slow down the display, as in Program 5, but make it even 
slower to allow time to press different keys while viewing the display — slow to 
about 75 seconds. 

Remember when running the program that once you press a key, it automat- 
ically repeats until you press the next key. Can you get the display to look like an 
Indian blanket? 
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Program 8, PRINTOVER I. Have the program type over the existing display 
rather than blanking the screen. Do this without scrolling. 

Is the display completely satisfactory this way? If not. how would you im- 
prove it? 



Program 9, PRINTOVER II. The task is the same as Program 4, but fix its faults. 
Have the character print position show visually, even when printing over the 
same character. Blank the last two lines before printing the messages, pausing a 
few seconds after printing PHEW!; then blank the two lines again before printing 
the next display character. 



Program 10, ALL THE WAY. Have the display character print over the entire 
1000 character positions of the screen. The HIT A KEY message will appear only 
once at the beginning of the program. After that the user enters another key 
"blind." No PHEW! message. 

Hint: First do the program for 1 = 1 TO 999. Getting the 1000th character will 
take a little poking around. 



Program 11, BOTTOM UP. Have the program print in reverse order, starting 
from the lower right-hand corner and proceeding left across rows to the home 
position. This is not difficult once you have done Programs 9 and 10. Clear the 
screen before ENDing to avoid typing into a cluttered display. 
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CHAPTER 4 



PET BASIC 



This chapter describes the syntax of all PET BASIC commands, statements, 
and functions that can be included in a PET BASIC program. This chapter is in- 
tended to serve as a reference guide. It contains PET BASIC commands, state- 
ments, and functions listed alphabetically within each group. 

Descriptions given in this chapter have been made as definitive as possible. 
Frequently this results in the use of terms that you will not understand if you are a 
novice programmer; these terms are used to make the description as precise as 
possible. But do not worry if you encounter terms you do not understand; a less 
precise, general description of each statement, command, or function is also 
given. A list of BASIC primers is contained in Appendix D. 
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FORMAT CONVENTIONS 

The following conventions are used in the format presentations: 

UPPER CASE Words in upper case are constant and must be typed in 

exactly as shown, 
lower case Words in lower case are variable; the exact wording or 

value is supplied by the programmer. 
} } Braces indicate a choice of items; braces do not appear 

in an actual statement. 
. . . Ellipses indicate that the preceding item can be re- 

peated; ellipses do not appear in actual statements, 
line number In the format presentations, a beginning line number is 

implied for all stored program statements, 
variable Unless otherwise specified, a variable may be un- 

subscripted (a simple variable) or subscripted (an array 

element). 



BASIC COMMANDS 

CLR 

The Clear command, CLR, reinitializes all of the PET's "system" pointers to 
user program variables and initializes the Stack Pointer. This is equivalent to turn- 
ing the PET off, then turning it back on, and loading a fresh copy of the program 
into memory. 

Format: 

CLR 

After CLR, all numeric variables are assumed to have values of zero and all 
string variables are assumed to have null values until the variable is given a 
different value by a program or immediate mode assignment. PET BASIC state- 
ments that can assign values to variables are LET=, GET, GET#, INPUT, INPUT#, 
and READ. 

CLR may be given in immediate or program mode. 

Example: 

CLR 

CONT 

The Continue command, CONT, resumes program execution after a BREAK. 
A break is usually caused by pressing the STOP key in immediate mode or execut- 
ing a STOP statement in program mode. 
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Format: 

CONT 

A break is an interruption in program execution that returns control to PET 
BASIC before the program has executed to completion. A scheduled break is 
caused by execution of a STOP statement, execution of an END statement that 
has additional statements following it, or depressing the STOP key while the pro- 
gram is running. 

During a program break you can LIST, LOAD, SAVE, VERIFY, and perform 
any immediate mode operations using PET BASIC statements — including 
changing the values of program variables — and still continue program execution 
by issuing a subsequent CONT command typed in at the keyboard. This can be 
very useful in debugging situations. On resumption of the program, execution 
continues at the exact point where it left off. A break caused by pressing the 
RETURN key in response to an INPUT statement can be recovered by typing 
CONT. In this case the same INPUT request is repeated. 

You cannot resume program execution using CONT if during the program 
break you make any editing changes to the program or issue a CLR or NEW. CONT 
cannot continue program execution past an error message. 

Example: 

CONT 

LIST 

The List Program command, LIST, displays one or more lines of a program. 
You may edit program lines displayed by the LIST command. 

Format: 

List entire program. 
List one line. 
LIST ( Iine-|-line2 List from line-] to Iine2- 

List from start to line. 
List from line to end. 
where: 

line is a line number. Lineq is a lower number than 

Iine2- All line numbers are inclusive. The line 
numbers do not need to be actual line numbers 
in the program. In the case of listing one non- 
existent line, a blank line is printed. 

LIST is the most common command you will give in PET BASIC. It lists pro- 
gram lines on the display screen for examination and possibly subsequent editing. 
After a LIST command, you can move the cursor up to any line in the program 
shown on the screen and make editing changes. 
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If the program is longer than 23 lines, a simple LIST will scroll the beginning 
of the program up off the display screen. Use line limiting parameters in this case 
to retain the desired program lines on the screen. In addition to LIST, the entire 
program is also listed in response to LIST or LISTO. 

If the PET is hooked up to a hard copy output device, such as a line printer or 
teletype, LIST can be used to obtain printed copies of the current program (see 
CMD statement). 

Examples: 

LIST List entire program. 

LIST 50 List line 50. 

LIST 60-100 List all lines in the program between lines 60 

and 100, beginning with line 60 and ending 

with line 100. 
LIST -140 List all lines in the program from the beginning 

of the program through line 140. 
LIST 20000- List all lines in the program from ine 20000 to 

the end of the program. 

The format of the listed line is virtually the same as that in which the line 
was entered. PET BASIC does just the following reformatting: 

1. ?'s entered as a shorthand for PRINT are expanded to the word PRINT. 
Example: ? A becomes PRINT A. 

2. Blanks ahead of the line number are eliminated. 
For example: 50 A = 1 becomes 50 A = 1 

100A=A+1 100A=A+1 

3. A space is inserted between the line number and the rest of the state- 
ment if none was entered. 

For example: 55A = B-2 becomes 55 A=B-2. 

4. The line is printed beginning at column 2 instead of column 1. 

LIST is always given in immediate mode. If you put a LIST command in your 
program, it lists the program but then exits to PET BASIC. Attempting to continue 
program execution via CONT simply repeats the LIST indefinitely. 

LOAD 

The LOAD command loads a program from the tape cassette unit, or from 
another device if specified, into memory. 
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Format: 



where: 



(blank) Load the first program found from the con- 

sole tape. 

filename Load the named program from the console 

LOAD tape. 

filename.device Load the named program from the specified 
device. 

filename.device.s Load from specified device with secondary 
address code. 



filename 



device 
s 



is a string enclosed in quotes or a string 
variable representing the file name that was 
given when the program was written onto 
tape. 

is a preassigned device number. 

is a secondary address code (see OPEN). 



LOAD in Immediate Mode 

LOAD is most often specified in immediate mode to load a desired program 
into memory. For a LOAD in immediate mode, PET BASIC automatically performs 
a CLR function before the program is loaded. Once a program has been loaded 
into memory, it can be listed for updating or executed by issuing the RUN com- 
mand. 

Begin a tape load with all tape control keys up (off). When you give a LOAD 
command, PET issues the following dialogue (bracketed items appear only if a 
filename is specified): 

Issue LOAD command. 



LOAD ["filename"] 
PRESS PLAY ON TAPE #1 

OK 

SEARCHING [FOR filename] 

FOUND filename a 

FOUND filename b 

FOUND filename . . 

FOUND filename d 

FOUND 

LOADING 

READY. 



Shown if no tape control keys are de- 
pressed. 
Shown after you press the PLAY key. 

Tape begins moving. 
Lists the first 16 characters of all pro- 
grams found, if any, between beginning 
tape position and filename location. 
Format for named program. 
Format for unnamed program. 
A program is being loaded. 
Loading is complete. 
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After the first program has been loaded from a tape, you can for conven- 
ience leave the PLAY key depressed if you will be loading again from the tape. 
However, do not leave the PLAY key depressed if you will subsequently be saving 
a program. PET can sense that a tape control key is depressed, but it cannot dis- 
tinguish between them. A common error is to LOAD, then subsequently attempt 
to SAVE, with only the PLAY key depressed. 



Examples: 

LOAD 



LOAD "EGOR" 

N$="WHEE!LS' 
LOAD N$ 
LOAD "X" 



Load the next program found into memory. If you 
start a LOAD when the cassette is in the middle of a 
program, the PET will read past the remainder of the 
current program, then load the next program. 
Search for the program named EGOR on the tape 
cassette, and load it into memory. 
Search for the program named WHEEILS on the tape 
cassette, and load it into memory. 
Where a program named X is not on the tape, this 
command will produce a list of all the programs on 
the tape in the form: 
FOUND program 1 
FOUND program 2 
etc. 
Sometimes you may have trouble loading a program from tape into memory. 
Often the PET will find the program name but does not load the program correctly 
or does not load it at all. If this happens, the only thing you can do is to try to load 
the program again. Rewind the tape and reload (several times if necessary). If this 
does not work, there may have been a problem when saving the program (SAVE 
command) or in the cassette unit itself. 

LOAD in Program Mode 

When the LOAD command is executed in program mode, any listing of 
LOAD messages is suppressed unless the tape PLAY key is up (off). When the 
PLAY key is off, the following message is shown so that the load can proceed: 

PRESS PLAY ON TAPE #1 

OK- when PLAY is depressed 

LOAD in program mode can be used to build program overlays. A LOAD 
command executed from a program causes that program's execution to stop and 
another program to be loaded, overlaying the program currently in memory that 
issued the LOAD request. In this case the PET does not perform a CLR, thereby 
allowing the first program to pass on all of its variable values to the program being 
loaded. The overlay program, and all subsequent overlay programs, cannot be 
larger than the first program in the overlay series. 
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Example: 

410 LOAD "OVLY1" 



NEW 

The NEW command clears the PET's memory of the current program. 

Format: 

NEW 

When a NEW command is executed, the PET performs a CLR for all varia- 
bles but also reinitializes all pointers that are keeping track of the program state- 
ments stored in memory. The program itself is not physically deleted. These NEW 
operations are automatically performed during a LOAD process. 

Issue a NEW command when you want to begin creating a stored program 
entered from the keyboard and there is already a program in memory. If a NEW 
were not issued, subsequent program entry lines would simply modify the exist- 
ing program. 

Example: 

NEW 

NEW is always issued in immediate mode. If a NEW command is issued 
from within a program, the program will "self destruct"; it will clear itself out just 
as if a NEW command had been issued from the keyboard. Of course, the program 
terminates at that point. 



RUN 

The RUN command begins execution of the program currently stored in 
memory. 

Format: 

j ,~, u .ik) Begin execution at the lowest-numbered line. 



| (blank 
' line 



Begin execution at the specified line. 

When the RUN command is executed in immediate mode, the PET performs 
a CLR of all program variables and performs a RESTORE, then begins executing 
the program. This is by far the most common use of the RUN command. 



777 



If RUN is specified with a line number following it PET still performs the CLR 
and RESTORE but begins execution at the specified line number. The RUN with 
line number command is not for use after a program break — use CONT or GOTO 
for that purpose. Rather, RUN with a line number specified is used to begin execu- 
tion of a program within a program. Usually the two programs will be completely 
separate, each program having its own range of line numbers. 




The RUN with no line number command may also be used in program mode. 
It begins execution of the program from the top with all variables cleared and 
DATA being called from the beginning again. However, you will probably find that 
using the CLR, RESTORE, and GOTO commands is preferable. 

Examples: 

Initialize and begin execution of the current pro- 
gram. 

Initialize and begin execution of the program 
starting at line 1000. 



RUN 



RUN 1000 
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SAVE 



(blank) 

filename 

filename.device 

filename.device.s 



SAVE 

the SAVE command writes a copy of the current program from memory to 
the console tape unit, or other device if specified. 

Format: 

Save as an unnamed file. 

Save with filename header. 

Save with filename header on specified 

device. 

Save on specified device with secondary 

address code, 
where: 
filename is a string enclosed in quotes or a string 

variable representing the file name by 

which the program is to be called, 
device is a predefined device number, 

s is a secondary address code (see OPEN). 

SAVE is most often used in immediate mode. To save the current program 
on tape, follow these steps: 

1. Insert the tape cassette into the cassette unit. The save begins im- 
mediately, so you should be sure to position the tape to the correct 
point. 

2. Depress the tape STOP key to set all keys up. 

3. Type in the SAVE command. The following dialogue takes place 
(bracketed items appear only if a file name is specified): 

SAVE [filename] 
PET responds with the message: 

PRESS PLAY & RECORD ON TAPE #1 
First press the RECORD key and then the PLAY key. PET responds with: 

OK 

WRITING [filename] 

READY.- Tape stops 

4. Depress the STOP key. 

5. Verify the saved program (see VERIFY). 

If you want to write the current program onto a tape that is not positioned 
correctly, use VERIFY commands to position the tape, since VERIFY does not alter 
the program currently stored in memory. Or, you may write the current program 
to a spare tape, position the other tape with LOADs, then reload the saved pro- 
gram from the spare tape and proceed with the SAVE procedures on the primary 
tape. 
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When the PET performs a SAVE to tape, it automatically writes a tape 
header and creates a tape file with the specified file name (or blank if no file name 
is specified). It is recommended that file names be used — you can always load a 
named program without naming it, but you cannot search for an unnamed one. 
Error checking and correction techniques are used to help ensure that subsequent 
loading will be a correct copy of what was originally written. You can help to en- 
sure reliable tapes by verifying after every SAVE command (see VERIFY com- 
mand). 

CAUTION: If any of the four tape control keys REC, REW, FFWD, or PLAY 
are depressed when the SAVE command is executed, the PET will start "writing" 
to the tape. Be sure to press the tape STOP key before issuing a SAVE command; 
this assures that the PET will print the PRESS PLAY & RECORD ON TAPE #1 
message. Do not follow the order of these instructions: remember to depress 
RECORD before you press PLAY. 

Examples: 

SAVE Write the current program onto tape, leaving it 

unnamed. 
SAVE "RED" Write the current program onto tape, assigning 

the file name of RED. 
A$="RED" Same as above. 

SAVE A$ 

A SAVE command will also work if issued from within a program. You will 
normally not have any reason to do this. For a programmed SAVE, as with a pro- 
grammed LOAD, the PET does not issue any messages on the screen unless the 
device being written to is not ready; for the console tape, the following messages 
may be displayed: 

PRESS PLAY & RECORD ON TAPE #1 
OK 



VERIFY 

VERIFY is a version of the LOAD command that checks for recording errors 
after a program is saved. Always verify a program after you save it. 

Format: 

Verify the first program found on the con- 
sole tape. 

Verify the named program on the console 
tape. 

Verify the named program from the 
specified device. 

Verify from specified device with secon- 
dary address code. 



VERIFY' 



(blank) 
filename 
filename.device 
filename, device.s 
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where: 

filename is a string enclosed in quotes or a string 

variable representing the file name that 
was given when the program was written 
onto tape, 
device is a preassigned device number, 

s is a secondary address code (see OPEN). 

Note that LOAD, SAVE, and VERIFY have the same parameters. 

VERIFY should always be used following a program SAVE to see if any er- 
rors occurred when writing to the tape. By simulating the processes of a program 
LOAD, it reads and compares the program on the tape to the program in memory 
without actually loading the program into memory. If an error is detected, the PET 
displays a screen message to warn the user. 

Follow these steps to verify a tape: 

1. SAVE the program. 

2. Rewind the tape to the beginning of tape (or to a point that you know 
precedes the load point of the program just saved). 

3. Press the tape STOP key. 

4. Type in the VERIFY command, giving the same parameters that were 
used in the SAVE command. The program will be verified. 

On being given a VERIFY command, the PET begins the following dialogue 
(bracketed items appear only if a filename is specified): 



VERIFY ["filename"] 
PRESS PLAY ON TAPE #1 

OK 

SEARCHING [FOR filename] 
FOUND filename a 
FOUND filename b 
FOUND filename . . 

FOUND filename d 

FOUND 
VERIFYING 

r \ 

(READY.) 
?VERIFY ERROR 



Issue VERIFY command. 
Shown if no tape control keys are de- 
pressed. 

Shown after you press PLAY. 
Tape begins moving. 
Lists the first 16 characters of all pro- 
grams found, if any, between beginning 
tape position and filename location. 

Format for named program (SAVE 
filename"). 

Format for unnamed program (SAVE). 
A program is being verified. 

Displayed if program verifies. 

Displayed if program does not verify. 



If the message OK is displayed, it means that you can subsequently load the 
saved copy into memory and get a duplicate of what is currently in memory. 
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If the message 7VERIFY ERROR is displayed, it means that the program may 
not have been correctly recorded onto the tape. Rewind the tape and try the 
VERIFY again. If the error persists, rewind the tape back to the beginning of the 
save point, save the program again, and verify the program. If the error still per- 
sists, try using another portion of the tape or another tape. To find the problem 
you may use the Status Word function (ST). ST tells you where the error occurred 
(see ST function). 

The VERIFY command can be used in program mode, but this is not a com- 
mon practice. 

Examples: 

VERIFY Verify the next program found on the ape. 

VERIFY "CLIP" Search for the program named CLIP on 

the tape cassette, and verify it. 
A$="CLIP" Same as above. 

VERIFY A$ 
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BASIC STATEMENTS 

CLOSE 

The CLOSE statement closes a logical file. 

Format: 

CLOSE file 
where: 

file is the logical file number that was given 

when the file was opened. 

Each file should be closed when you are through accessing it. Since the PET 
allows only ten files to be open at a time, it is good practice to close files as soon 
as they are not in use to allow other files to be opened. A logical file may be 
closed only once between file open commands. All open files must be closed 
before a program END. 



HOLD IT! 
YOU CAN'T OPEN 
THAT UNTIL YOU 
CLOSE. OhiE OF 
THESE FILES. 




The particular operations performed in response to a CLOSE statement de- 
pend on the physical device and the type of operation for which the file was 
opened. For PET cassette tapes, closing a file after reading it will stop the PET 
from reading the file any further. Closing a file after writing to it is critical: the PET 
puts an end-of-file mark at that point, an end-of-tape mark for write code 2, and 
finishes writing the last of the buffer contents onto tape. 



J 23 



If you forget to close a file prior to the program end, you may ruin your file. 
When a file is opened for write, the data is stored in a buffer area prior to being 
transferred to the tape. If the file is not closed, the data will probably NOT be 
transferred to the tape. If the data is transferred under these conditions, other 
problems can result. If the file is written over a previously recorded tape, and the 
file is not closed, no end-of-file marker is written. This problem will not present it- 
self until the file is subsequently read, when either a READ ERROR will be gener- 
ated or the tape will be read past where the end-of-file should be, and the remain- 
ing "garbage" on the tape will be read. 

CLOSE may be executed in either immediate or program mode. After writing 
to a file, if no tape control key is depressed when a CLOSE is issued, the PET dis- 
plays the following message: 

PRESS PLAY & RECORD ON TAPE #1- Press keys 

OK-« Tape begins moving to write tape buffer. 

No tape control keys need to be down for a CLOSE after a READ command. 

Examples: 

CLOSE 1 Close logical file 1. 

CLOSE 14 Close logical file 14. 

A = 14 Same as above. 

CLOSE A 



CMD 

The CMD statement directs the PET-user screen dialogue to another output 
device. 

Format: 

CMD file 
where: 

file is the logical file number that was given 

when the file was opened. 

After a CMD statement, output for subsequent PRINT and LIST commands 
is directed to the "commanded" device rather than to the screen. 
CMD may be executed in immediate or program mode. 
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Example: 

The following example sequence uses CMD to obtain program listings and 
printouts on paper. 

OPEN 5,5 Device 5 is a hard-copy printer. 

CMD 5 Direct subsequent display log to the logical file 

5 device. 
LIST Prints the program listing on paper. 

LIST Prints another copy of the program listing on 

paper. 
PRINT A Prints the value of variable A on paper. 

PRINT#5 Return to display screen log (prints a blank line 

at the printer and "unlistens" the printer 

device). 

DATA 

The DATA statement declares constants that are to be assigned by the 
READ statement. 

Format: 

DATA / constant 0ne DATA item 

(constantconstant. . .constant Multiple DATA items 

where: 

constant is a simple numeric or string constant. Varia- 

bles, expressions and functions are illegal. 

DATA statements may be placed anywhere in the program. See the READ 
statement for a description of DATA statement processing. 

Constants in the DATA statement list may be numeric or string. Numeric 
constants must agree in format with the variables to which they will be assigned. 
String constants are usually enclosed in double quotation marks. The quotes are 
not necessary unless the string contains graphic characters or any of the follow- 
ing special symbols: blanks (spaces), commas, and colons. Blanks and graphic 
characters are ignored in a string unless they are enclosed in quotes. Any con- 
stant may be read into a string variable. Numeric data read into a string variable 
can be converted to its numeric equivalent by the VAL function. A double quota- 
tion mark cannot be represented in a DATA string: an Assignment statement 
must be used in the following manner: 

D$=CHR$(34):?D$ 



L 



-CHR$(34) is the double quotation mark. 



The DATA statement is valid in program mode only. 
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Examples: 

10 DATA NAME,"C.D." Defines two string variables. 

50 DATA 1E6,-10,XYZ Defines two numeric variables and 

one string variable. 

DIM 

The Dimension statement (DIM) allocates space for arrays. 
Format: 

r^,.. (var(i) Dimension one array. 

DIM < ,., ,., ,., „. , • , 

( var(i),var(i),. . .var(i) Dimension multiple arrays. 

where: 

var is a numeric or string variable name. 

i is a constant, variable or expression represent- 

ing the subscript or subscripts of the array, in 
the form: 

var(i) Single-dimension array 

var(i.j) Two-dimension array 

var(i,j,k,. . .) Multiple-dimension array 

Refer to "Arrays" in Chapter 3 for a complete description of array formats. 

Arrays with more than eleven elements must be dimensioned in a DIM 
statement. The DIM statement must be encountered once, and only once, in pro- 
gram execution before any statement calls an element of the array. Arrays of 
eleven elements or less (subscripts through 1 for a one-dimensional array) may 
be used without being dimensioned by a DIM statement; for such arrays, eleven 
array spaces are allocated when the first array element is encountered. 

If the array is dimensioned more than once, or if an array having more than 
eleven elements is not dimensioned, a ?REDIM'ED ARRAY error occurs and the 
program is aborted. A CLR statement allows a Dimension statement to be reex- 
ecuted: this is not normally done, however. 

DIM may be given in either immediate or program mode. 

Examples: 

10DIMAO) DIM statement usage 

45 DIM X$(44,2) in program mode. 

1000 DIM MU(N,3.B), N(12) 
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END 

The END statement terminates program execution and returns control to 
PET BASIC. 



Format: 



END 



The END statement may be used in a program to provide a program termina- 
tion point, or multiple program termination points, at locations other than the 
physical end of the program. END statements can be used to terminate each pro- 
gram when there is more than one program in memory at the same time. An END 
statement at the physical end of the program is optional. A Continue command 
(CONT) given after program termination by END will continue program execution 
at the statement following the END statement. 

END is functional only in program mode. 

Example: 

20001 END 



FOR . . . NEXT [STEP] 

The FOR statement sets up a loop where all intervening statements between 
the FOR statement and the NEXT statement are executed a specified number of 
times. 

Format: 

FOR index = start TO end [STEP increment] 

statements in loop 
NEXT [index] 
where: 



index 



start 



end 



increment 



is a floating point, single variable used to hold 
the current loop count. The index variable is 
often used by the statements in the loop, 
is a numeric constant, variable or expression 
that specifies the beginning value of the index, 
is a numeric constant, variable, or expression 
that specifies the ending value of the index. The 
loop is completed when the index value is equal 
to the end value, or when the index value is in- 
cremented or decremented past the end value, 
if present, is a numeric constant, variable, or ex- 
pression that specifies the amount by which the 
index variable is to be incremented with each 
pass. The step may be incremental (positive) or 
decremental (negative). If the STEP phrase is 
omitted, the increment defaults to +1. 
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FOR . . . NEXT loops may be nested. Each nested loop must have a different 
index variable name. A nested loop must be wholly contained within the next 
outer loop; at most, the loops can end at the same point. 

The index variable may optionally be included in the NEXT statement. This 
may be advisable to improve the readability of the program when there are nested 
FOR . . . NEXT loops. A single NEXT statement is permissible for nested loops that 
end at the same point. The NEXT statement would then take the following form: 

NEXT index-|,index2,. . ■ 

A FOR . . . NEXT loop may contain subroutine calls, but the loop cannot ter- 
minate inside a called subroutine. Both FOR . . . NEXT loops and subroutine calls 
use the Stack (see Chapter 6). 

The FOR . . . NEXT loop will always be executed at least once, even when the 
beginning index value is beyond the end index value range. If the NEXT statement 
is omitted and no subsequent NEXT statements are found, the loop is executed 

once. 

The start, end, and increment values are read only once, at the first execu- 
tion of the FOR statement. You cannot change these values inside the loop. You 
can change the value of the index variable within the loop. This may be used to 
terminate a FOR . . . NEXT loop before the end value is reached: set the index to 
the end value, and on the next pass the loop will terminate itself. Do not jump out 
of the FOR . . . NEXT loop with a GOTO. 

Examples: 

10 FOR IN =0TO 100 



40 NEXT IN 

100 FOR X = A+ 14 TO C-64+D/2 STEP 4 



150 NEXTX 

60 FOR A1 =50 TO STEP -1 



90 NEXT 
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100 FOR I =0TO 10 STEP 0.5 



155 NEXT 

250 FOR I = 1 TO 5 
260 FOR J = A TO B 



300 NEXT I.J same as 300 NEXT ! same as 300 NEXT 
310 NEXT J 310 NEXT 



GET 

The GET statement inputs one character from the keyboard into a program. 

Format: 

GET var$ 
where: 

var$ is a string variable into which the input 

character is to be stored. 

When a GET statement is executed, it sets the specified string variable to 
null. Any previous value of the variable is lost. Then it fetches the next character 
from the keyboard buffer and assigns it to the specified string variable. If the 
keyboard buffer is empty, the variable remains null. 

GET can be used to handle one-character responses from the keyboard. It 
has an advantage over INPUT in that the PET does not intercede when the 
RETURN key is struck; the RETURN key is passed to the program as a value (CHR$ 
(13)) just like any other key. Because of fast program execution, you will need to 
program a particular sequence so that the GET command will wait until a key has 
been pressed at the keyboard. The common program sequence incorporates a 
check for a null character; if the null character is found, return to the GET state- 
ment, and then check the variable value again; if any character is found, proceed 
with the main program. This sequence is shown in the example below. 

The GET statement is valid only in program mode. 

Example: 

10 GET C$:IF C$ = "" GOTO 10 
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Format Variations 

GET has other formats, but they are defective and it is not recommended 
that they be used. These variations are described below. 
GET may be used to fetch a numeric variable: 

GET var 
where: 

var is a numeric variable. 

If no key has been pressed a zero is returned. However, a zero is also 
returned if a zero was pressed at the keyboard. If the character returned is not a 
digit (0-9) a SYNTAX ERROR message is generated and the program aborts. 

The GET statement may have a variable list of the form: 

GET var.var var 

where: 

var is a string or numeric variable. 

GET# 

The Get External statement (GET#) inputs one character from an external 
peripheral device to the PET. 

Format: 

GET#file,var 
where: 

file is the logical file number that was given when 

the file was opened, 
var is a string or numeric variable into which the 

character is to be input. 

GET# functions like the GET command except that the character is fetched 
from an external device. 

GET# is valid only in program mode and only when referencing a logical file 
that has been opened for input. For input from the tape cassette, PET prints the 
following message if no tape control keys are pressed when the GET# statement 
is executed. Otherwise, no messages are printed. 

PRESS PLAY ON TAPE #1 

OK -. when a tape control key is depressed 

Example: 

10 GET#4,C$:IF C$ = "" GOTO 10 
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GOSUB 

The GOSUB statement branches program control to specified line and 
allows a return to the next statement following the GOSUB call. 

Format: 

GOSUB line 
where: 

line is a numeric constant specifying the first line of 

the subroutine. 

No special entry to a subroutine is needed. The program branches control to 
the subroutine after making an entry on the Stack (see Chapter 6). The subroutine 
must terminate with a RETURN statement to return program control to the state- 
ment following the GOSUB statement that activated the subroutine. The RETURN 
removes the Stack entry. A subroutine may be called from many places in a pro- 
gram. As many as 26 subroutines may be nested (25 GOSUBs before the first 
RETURN). 

Example: 

10 GOSUB 100 

GOTO 

The GOTO statement branches unconditionally to the specified line. 

Format: 

GOTO) .. 
~~^~ / me 
GOTO ) 

where: 

line is a numeric constant specifying the line to be 

branched to. 

Example: 

10 GOTO 100 

GOTO executed in immediate mode branches to the specified line in the 
stored program without clearing the current variable values. GOTO cannot 
reference immediate mode statements, since they do not have line numbers. 

IF . . . THEN 

The IF . . . THEN statement provides conditional execution of statements 
based on a relational expression. 
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Format: 



IF condition THEN 






statement 



Conditionally execute statement. 



(statement:statement... Conditionally execute statements. 



(THEN) 
IF conditions > line 

(GOTO J 



Conditionally branch. 



where: 

condition is a relational term (with "< >0" implied) or a rela- 

tional expression. 

statement is any PET BASIC statement valid for the current 

mode (program or immediate) that may be condi- 
tionally executed. 

line is a numeric constant specifying the line to be 

branched to. 

If the specified condition is true, then the statement or statements following 
the THEN are executed. If the specified condition is false, control passes to the 
next sequential statement on the next line number without executing the state- 
ment or statements following the THEN. A conditional branch may be written in 
the form of a line number to be branched to placed after the word THEN or after 
the word GOTO. The compound form THEN GOTO is also acceptable. 

IF A = 1 THEN 50 ) 

IF A = 1 GOTO 50 > equivalent 

IF A = 1 THEN GOTO 50 ) 

If an unconditional branch is in a multiple-statement IF . . . THEN, the branch 
must be the last statement on the line and must be in the traditional "GOTO line" 
form. If it is not the last statement on the line, the statements following the un- 
conditional branch are never executed. The form "THEN line" is an alternative to 
"GOTO line" and cannot be used with multiple statements intervening between 
the "THEN" and the "line." 

IF . . . THEN may be given in immediate or program mode. 

In an immediate mode IF . . . THEN, the following statements are illegal or 
non-functional: DATA, GET, GET#, INPUT, INPUT#, REM, RETURN, END, STOP, 
WAIT. If a line number is specified, or any statement containing a line number, 
there must be a corresponding statement with that line number in the current 
stored program if the branch may be taken. 



132 



In a program mode IF . . . THEN, the following command and statement are 
illegal: CONT, DATA. If a FOR . . . NEXT loop will be following the THEN, the loop 
must be completely contained on the IF . . . THEN line. Additional IF . . . THEN 
statements may appear following the THEN as long as they are completely con- 
tained on the original IF . . . THEN line. However, Boolean connectors are preferred 
to nested IF . . . THENs. For example, the two statements below are equivalent, 
but the second is preferred. 

10 IF A$ = "X" THEN IF B = 2 THEN IF C>D THEN 50 

10 IF A$ = "X" AND B = 2 AND OD THEN 50 

Examples: 

400 IF X>Y THEN A = 1 

500 IF M+1 THEN AG =4.5:GOSUB 1000 

INPUT 

The INPUT statement inputs data items from the keyboard to a program. 

Format: 

Input data item 
,var Input data items 

where: 

var is a string or numeric variable into which the 

data item is to be input. 

msg refers to a prompt message which, if present, is 

a string enclosed in quotes and followed by a 
semicolon. 

When the INPUT statement is executed, PET BASIC prints a question mark 
on the screen requesting input of data to the variable or variables listed in the IN- 
PUT statement. The user enters the data and terminates his or her response with a 
RETURN. Where there is more than one variable in the INPUT statement, data en- 
try is separated by commas. 

?data or ?data,data data 

If msg is present, the string is printed before the question mark. 

msg?data or msg?data,data data 



INPUT ( (blank, l | V8r 

( msg :) (var, var, 
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The input data items must agree in number and type with the variables in 
the INPUT list. If the variable types are different, a ?REDO FROM START message 
is printed and the PET waits for another input. Any response is acceptable for 
string input; for a numeric variable, however, the input must be in proper numeric 
form. If at least one but still too few data items are input, PET BASIC requests ad- 
ditional input with double question marks (??) until the variable list is satisfied. If 
too many data items are input, the message 7EXTRA IGNORED is printed but the 
program continues. Data is input from the first position past the question mark to 
the position where the RETURN is given. Normally only a single string item is re- 
quested to be typed in from the keyboard by each INPUT statement. However, 
multiple items can be input and items may be input from an existing screen dis- 
play. 

CAUTION: If a null list (RETURN only) is input in response to an INPUT 
statement, the program aborts and returns control to PET BASIC. The program 
can be continued, however, by typing CONT in response to the PET's READY 
message. 

INPUT can be given only in program mode. 

Examples: 

100 INPUT A$ 

200 INPUT A,B$ 

220 INPUT "ENTER X COORDINATE";X 

3060 INPUT "NAME";N$ 

INPUT# 

The Input External statement (INPUT#> inputs one or more data items from 
an external peripheral device to the PET. 

Format: 

ar Input data item 

'.var var Input data items 

where: 

file is the logical file number that was given when 

the file was opened, 
var is a numeric or string variable into which the 

data item is to be input. 

Data strings may not be longer than 80 characters (79 characters plus a car- 
riage return) because the input buffer can hold only 80 characters at a time. Item 
separators such as commas and carriage returns are recognized by the PET when 
processing the INPUT# statement but are discarded and are not passed on to the 
program as data. 
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INPUT#file 



(var 
\var,' 



INPUT# is valid only in program mode and only when referencing a logical 
file that has been opened for input. For input from the tape cassette, the PET 
prints the following message if no tape control keys are pressed when INPUT# is 
executed. Otherwise, no messages are printed. 

PRESS PLAY ON TAPE #1 

OK-« when a tape control key is depressed 

Examples: 

1000 INPUT#10,A Input the next data item, which must be in 

numeric form, and assign the value to variable 
A. 

Input the next data item as a string and assign it 
to variable A$. 

Input the next two data items and assign the 
first to numeric variable B and the second to 
string variable C$. 



946 INPUT#12,A$ 
900 INPUT#5,B,C$ 



LET ... = 

The Assignment statement, LET 
specified variable. 



=, or simply =, assigns a value to a 



Format: 



((blank)) 
(LET J 



var=data 



where: 



var 
data 



is a numeric or string variable, 
is a constant, variable, or expression represent- 
ing the value to be assigned to var. Data must 
agree in type with var. 

The word LET is optional and is usually omitted in PET BASIC programs. The 
assignment statement may be used in program or immediate mode. 

Examples: 

10 A=2 

450 C$="* " 

300 M(1,3)=SGN(X) 

310 XX$(l,J,K.L)="STRINGALONG" 
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ON . . . GOSUB 

The ON . . . GOSUB statement provides conditional subroutine calls to one 
of several subroutines in a program, depending on the current value of the 
specified index. 

Format: 

ON index GOSUB line-] ,line2 Iine n 

where: 

index is a constant, variable, or expression that must 

be in the range 0<index<255. 

line, is one or more line numbers specifying the 

beginning lines of subroutines. 

ON . . . GOSUB has the same format as ON . . . GOTO, and the statement is 
evaluated in the same way (see ON . . . GOTO). 

For index=1, the subroutine beginning at line-] is called. When that 
subroutine is completed (a RETURN statement), the program continues with the 
statement following the ON . . . GOSUB. If index=2, the subroutine beginning 
with Iine2 is called, etc. The ON . . . GOSUB statement should be used only to call 
subroutines that return control via RETURN statements to the statement following 
the ON . . . GOSUB. 

ON . . . GOSUB is normally executed in program mode. It may be executed in 
immediate mode as long as there are corresponding line numbers in the current 
stored program that may be branched to. 

Example: 

10 ON A GOSUB 100,200,300 

ON . . . GOTO 

The ON . . . GOTO statement provides conditional branching to one of 
several points in a program, depending on the current value of the specified index. 

Format: 

ON index GOTO line-] , Iine2 Iine n 

where: 

index is a constant, variable, or expression that must 

be in the range 0<index<255. 
line, is one or more line numbers. 
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The specified index is evaluated and, if necessary, truncated to an integer 
number. If index=1, a branch is taken to the statement with line number line-|. If 
index=2, a branch is taken to the statement with line number Iine2- If index=3, a 
branch is taken to the statement with line number Iine3- If index=0, no branch is 
taken. If index is in the allowed range but there is no corresponding line number in 
that position of the line number list, no branch is taken. If a branch is not taken, 
program control proceeds to the next statement following the ON . . . GOTO. The 
next statement may be on the same line as the ON . . . GOTO (separated by a co- 
lon). 

If index has any value other than zero outside the allowed range, the pro- 
gram aborts with an error message. As many line numbers may be specified as 
will fit on the 80-character line. 

ON . . . GOTO is normally executed in program mode. It may be executed in 
immediate mode as long as there are corresponding line numbers in the current 
stored program that may be branched to. 

Example: 

40 A=B<10 

50 ON A+2 GOTO 100,200 Branch to statement 100 if A is true 

(-1) or branch to statement 200 if A 

is false (0). 

Branch to statement 500 
if X=1, to statement 600 
if X=2, or to statement 700 
if X=3. No branch is taken if 
X > 3 



50 
60 
70 



X=X+1 

ON X GOTO 500,600,700 



OPEN 

The OPEN statement opens a logical file and readies the assigned physical 
device. 



Format: 



OPEN 




Open code of device 1 

and assign file. 

Open code of device and 

assign file. 

Open code s of device and 

assign file. 

Open filename, code s, of 

device and assign file. 
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where: 

file is the logical file number and may be any num- 

ber, variable or expression in the range 1 
through 255. The logical file number must be 
present in an OPEN statement. 

device is the physical device number and may be any 
number, variable or expression in the range 
through 30. If omitted, the device number 
defaults to 1, the console tape unit. 

s is the secondary address code. This parameter 

may be any number, variable, or expression in 
the range through 31 that is valid for the 
specified device. If omitted, the secondary ad- 
dress code defaults to 0. 

filename is a string enclosed in quotes or a string variable 
representing a file name. 

On the PET, a logical file number is the way of referring to a particular opera- 
tion on a particular portion of a particular I/O unit The particular operation is 
specified by the secondary address code; subsequent I/O statements for the file 
must conform to the secondary address code specification. For example, you can- 
not open a file for read and then try to write to it. The particular I/O unit is 
specified by the device number. The particular portion of the device is specified 
by the filename. The relationships between logical file number, physical device 
number, secondary address code, and file name are illustrated in Figure 4-1. 

Logical File Number 

The PET performs programmed input/output (I/O) operations via logical file 
designations. A logical file must be opened for each type of I/O operation to be 
performed on each device accessed. The OPEN statement specifies the particular 
type of operation to be performed via the logical file. Subsequent I/O operations 
all refer to the logic file number set up by the OPEN statement: 

PRINT# \ I Logical file number established by OPEN statement 

INPUT# / | 
GET# > file . . . 



CMD \ | 

CLOSE / I Other parameters (if any) 



J 38 



The programmer makes up the logical file number, just as he does program 
variable names; the logical file number may be any number from 1 to 255. Once 
opened, the logical file can be used only for the type of operation specified by the 
OPEN statement until the logical file is closed; then it becomes free to use again 
in a different operation. A logical file may be opened only once before it is closed; 
if a file is opened twice before it is closed, a ?FILE OPEN error results. No more 
than ten logical files may be opened at the same time. 



Ifilename a 



device a 



Ifilename b 



Ifilename c 



device b 




filename a 



filename b 



Ifilename c 



•^ 



secondary address code a 
secondary address code b 



^ 



secondary address code a 
secondary address code b 




secondary address code a 
secondary address code b 




secondary address code a 
secondary address code b 



-Up to 10 logical files 
can be open at one 
time. 



-OPEN logical file number a 

-OPEN logical file number b 

-OPEN logical file number c 

-OPEN logical file number d 



-OPEN logical file number e 

-OPEN logical file number f 

-OPEN logical file number g 

-OPEN logical file number h 



-OPEN logical file number i 

-OPEN logical file number j 

-OPEN logical file number k 

-OPEN logical file number I 



-OPEN logical file number m 

-OPEN logical file number n 

-OPEN logical file number o 

-OPEN logical file number p 



^ 



secondary address code a 
secondary address code b 



•*— OPEN logical file number q 

—OPEN logical file number r 

-OPEN logical file number s 

—OPEN logical file number t 



£ 



secondary address code a 
secondary address code b 



-OPEN logical file number u 

-OPEN logical file number v 

-OPEN logical file number w 

-OPEN logical file number x 



Figure 4-1. Logical Files 
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Physical Device Number 

The physical device number is a predefined number that refers to a particu- 
lar peripheral unit capable of input and/or output with the PET. The device num- 
ber must be within the range to 255, although currently only numbers to 30 
will assign a device. Device numbers are listed in Table 4-1. 

Table 4-1. Physical Device Numbers 



Device Number 


Device 




1 (default) 

2 

3 

4 through 30 

31 through 255 


Keyboard 

#1 - Console tape cassette unit 

#2 - Second tape cassette unit 

Video display screen 

IEEE port devices 

Currently unassignable 



Secondary Address Code 

The secondary address code specifies the type of operation to be performed 
on the selected device. The meanings of the codes for a particular device are pre- 
determined. For the PET tape cassettes, the secondary address code is used by 
the PET software primarily to read or write tape headers. For IEEE 488-interfaced 
devices, the secondary address code is passed on directly to the device, allowing 
the program to select a variety of operational modes. Secondary address codes 
are not used for keyboard input or output to the display screen. Secondary ad- 
dress codes for PET devices are listed in Table 4-2. For IEEE devices, refer to the 
device manual for secondary address codes recognized by the device. 
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Table 4-2. Secondary Address Codes 





Secondary 
Address Code 


Operation 


PET Tape 

Cassette 

Units 


(default) 
1 
2 


Open for read 
Open for write 
Open for write and end-of- 

tape mark 
(EOT) when file is closed 


PET Line 
Printer 


(default) 
1 

2 

3 
4 

5 


Normal print 

Print under Format statement 

control 
Transfer data from PET to 

Format statement 
Set variable lines per page 
Use expanded diagnostic 

messages 
Byte data for programmable 

character 


PET IEEE 

488 
Devices 


(default) 
1 through 31 


No secondary address code 

sent 
Refer to device manual 



File Names 

The filename parameter in the OPEN statement specifies a program or data 
file by name. If the OPEN is for a write, this is the name that will be assigned to the 
file being created. If the OPEN is for a read, this is the name that was written when 
the program was created. 

For cassette I/O, the filename parameter is optional. If omitted, the PET 
defaults the file name to a null string ""; the null string will match the first file 
name encountered on the tape. For other devices the file name may or may not be 
optional, depending on the requirements of the device. Note that the logical file 
number is separate and distinct from the file name. The logical file number (first 
parameter in the OPEN statement) is for internal PET use; the file name, for tape 
cassettes, is the name written in the tape header to identify a program or data file 
stored on tape. 

OPEN may be executed in immediate or program mode. 
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OPEN for Read 

When the OPEN statement is executed to open a tape cassette unit for a 
read, the PET will display the following message if no tape control keys are 
pressed: 

PRESS PLAY ON TAPE #1 

OK when a tape control key is depressed; tape begins moving. 

It then reads the tape header. In immediate mode the messages continue as 
follows (bracketed items are shown if a filename was specified): 

SEARCHING [FOR filename] 



FOUND filename a 
FOUND filename b 
FOUND filename c 
FOUND filename d 

FOUND 

FOUND [filename]" 

READY. 



Lists the first 16 characters of all files 
found, if any, between beginning tape 
position and filename location. 
Format for named file. 
Format for unnamed file. 

File is opened for read. 



In program mode the above block of messages is not displayed. 



OPEN for Write 

When the OPEN statement is executed to open a tape cassette unit for a 
write, PET will display the following message if no tape control keys are pressed: 

PRESS PLAY & RECORD ON TAPE #1 

OK -< when a tape control key is depressed; tape begins moving. 

It then writes the tape header and tape movement stops. 

Examples: 



OPEN 1 

OPEN 1,1 
OPEN 1,1,0 
OPEN 1,1,0,"DAT" 

OPEN 3,1,2 

OPEN 3,1,2,"PENTAGRAM' 



Open logical file 1 for cassette #1 

(default), code read (default) from the first 

file encountered on the tape (no filename 

specified). 

Same as above. 

Same as above. 

Same as above but from the file named 

DAT. 

Open logical file 3 for cassette #1, code 

write and EOT to the next space on the 

tape. The new file is unnamed. 

Same as above but give the file name 

PENTAGRAM. 
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OPEN 54,8,10 Open logical file 54 for IEEE device 8 and 

send secondary address code 10. 

POKE 

The POKE statement provides the ability to store a specified byte value into 
a specified location in PET memory. 

Format: 

POKE address.data 
where: 

address is a numeric constant, variable, or expression in 

the range 0<address<65535 representing an 
address in PET's read/write (RAM) memory, 
data is a numeric constant, variable, or expression in 

the range 0<data<255 representing a byte 
value to be stored. 

Only RAM and display memory locations are affected by a POKE. 

Examples: 

10 POKE 1,A 

POKE 32768,ASC("A")-64 

PRINT 

The PRINT statement prints data items on the display screen. 
Format: 

PRINT) (data Print data item. 

'data, data data Print data items tabbed. 

data;data;. . .;data Print data items continuous. 



, it 

where: 



? (question mark) is an abbreviation accepted by 

PET BASIC for the word PRINT. 

data is a constant, variable, or expression represent- 

ing a data item to be printed. If the data item is 
a string, it is enclosed in double quotation 
marks. 

Data Conversions 

When printing a number, PET BASIC prints it in standard representation if it 
is in the range 0.01 <n<; 999999999 and in scientific notation if it is outside that 
range. 
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Strings 

Strings may be printed by assigning the string to a string variable or enclos- 
ing the string within quotation marks. For example, 

A$="HELLO MARY" 

PRINT A$ Prints HELLO MARY 

PRINT "HELLO MARY" Prints HELLO MARY 

Further, if you print a string within quotation marks, you may leave off the final set 
of quotation marks if the PRINT statement is the last statement on a line. For ex- 
ample, 

PRINT "HELLO MARY Prints HELLO MARY 

PRINT Formats 

First data item. The first data item to be printed in a program is printed at the cur- 
rent cursor position. The PRINT format character (comma or semicolon) follow- 
ing the first data item specifies the format in which the next data item is to be 
printed. The next data item may be in the same PRINT statement or in a sepa- 
rate PRINT statement. 

New Line. When no PRINT format character (comma or semicolon) follows a data 
item, a RETURN is forced following printing of the data item. 

Tabbed. A comma following a data item causes the next data item to be printed 
at the next tab column. Tabs are at locations 1, 21, 31, and 41 of a line. (A com- 
ma may precede the first item to tab before printing.) 

Continuous. A semicolon following a data item causes the next item to be printed 
at the next available location on the line. For numeric data, this is the second 
position to the right of the previous data item to allow room for a "skip" 
character between numbers. For string data, items are printed continuously 
with no spaces or skips in between. The semicolon is optional to specify con- 
tinuous line printing of character data. 

PRINT may be executed in immediate or program mode. 

Examples: 

10 PRINT A 
20 ?A,B,C$ 
?"MOOPOO";MM$ 
PRINT C1$;C2$; 
PRINT A+B 
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PRINT# 



ffil 
tfil. 



PRINT# 

The Print External statement (PRINT#) outputs one or more data items from 
the PET to an external peripheral device. 

Format: 

ile.data Output data item. 

ile,data;c;data;c;. . . data Output data items. 

where: 

file is the logical file number that was given when 

the file was opened, 
data is a constant, variable, or expression represent- 

ing a data item to be output. The type of varia- 
ble — string or numeric — determines the for- 
mat in which the data is written, 
c is an item separator to be output between 

multiple data items. This may be a stng or string 
variable. Item separators recognized by INPUT# 
statements are: 
Comma: "." or CHR$(44> 
RETURN: CHR$(141) 

When outputting a single data item, the data item is output and then a 
RETURN code is output. On subsequent reading of the file, the INPUT# statement 
recognizes separate data items by a <RETURN> between them: 

data <RETURN> data <RETURN> data <RETURN> . . .data <RETURN> 

When outputting multiple data items in one PRINT# statement, the items 
must be separated by a valid item separator for subsequent INPUT# reads. Stan- 
dard punctuation marks, like commas between items, are recognized by PET 
BASIC but are not transmitted to the output file. The writing of the item separa- 
tors must be forced by including them as strings: 

PRINT#file,data;",":data;",";data. . . 
or (equivalent): 
PRINT#file.data;CHR$(44);data;CHR$(44);data. . . 

This results in a file that is stored as: 

data, data, data. . ..data <RETURN> . . . EOF 

For output to cassette tape, the data item or items in a PRINT# statement 
are accumulated in a 192-character buffer. When the buffer is filled, its contents 
are output to the external device. Note that for INPUT#, no more than 80 charac- 
ters can be read between each RETURN. 

PRINT# may be executed in immediate or program mode but is valid only 
when referencing a logical file that has been opened for output. 

CAUTION: The form ?# cannot be used as an abbreviation for PRINT#. 
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Examples: 

100 PRINT#1.A 

200 PRINT#4.A$ 

300 PRINT#10,B%;",";C$ 



10 OPEN 1,1,2 
20 PRINT#1."HI" 
55 OPEN 3,3 
60 PRINT#3,"HI" 



Output numeric variable A and a 
RETURN code to logical file 1. 
Output string variable A$ and a 
RETURN code to logical file 4. 
Output numeric variable B%, a 
comma, string variable C$, and a 
RETURN code to logical file 10. 
Open cassette #1 for write. 
Output HI to tape. 
Open display screen. 
Same as ?"HI" 



READ 

The READ statement assigns values from a corresponding DATA statement 
to variables named in the READ list. 



Format: 



READ 



var 



Ivar.var var 



Read one data item. 



Read multiple data items. 



where: 

var is a numeric or string variable. 

READ is used to assign values to variables. READ can take the place of 
multiple assignment statements (see LET. . .=). 

READ statements with variable lists require corresponding DATA state- 
ments with lists of constant values. READ does the actual assigning of data items 
to the list of variables. On executing the first READ statement in the program, the 
first DATA constant is assigned to the first READ variable. If the READ statement 
has more than one variable listed, then the second DATA constant is assigned to 
the second READ variable. The assignments continue until all of the READ varia- 
bles in the READ statement have been assigned values from successive DATA 
constants. A pointer is maintained to the next available DATA constant. The next 
READ always assigns the next DATA constant. The number of READ and DATA 
statements can differ, but there has to be an available DATA constant whenever a 
READ statement is encountered. The data constants and corresponding variables 
have to agree in type. A string variable can accept any specified constant; a 
numeric variable can accept only numeric data. 

There may be more data than READ statements assigned; however, if the 
end of the DATA statements is reached before the end of the READ variables, the 
program aborts with an ?OUT OF DATA error message. 
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READ is generally executed in program mode. It can be executed in immedi- 
ate mode as long as there are corresponding DATA constants in the current 
stored program to read from. 

Examples: 

10 DATA 1,2,3 On completion, A=1 

20 READ A.B.C B=2 

C=3 

150 READ C$,D,F$ On completion, C$="STR" 

160 DATA STB, D = 14.5 

170 DATA 14.5,"TM" F$="TM" 

REM 

The Remark statement (REM) allows comments to be placed in the program 
for program documentation purposes. 

Format: 

REM comment 
where: 

comment is any sequence of characters. 

PET BASIC ignores Remark statements other than reproducing them in pro- 
gram listings. Remark statements may be placed in the path of program execu- 
tion, and they may be branched to. A Remark statement is terminated only by a 
RETURN (end of line). A Remark statement may be placed on a line of its own: 

100 REM comment 

or it may be placed as the last statement on a multiple-statement line: 

100 A=6+B:IF A>10 THEN 20:REM comment 

A Remark cannot be placed ahead of any other statements on a multiple- 
statement line, since anything after a REM to the end of the line is treated as a 
comment. 

10 REM BRANCH IF DONE:GOTO 200 

treated as part of remark * not executed 

REM is intended for program mode usage to document a stored program. It 
may be given in immediate mode. 

Examples: 

10 REM .».**»**♦ *»»*#»«**«*«** 
20 REM ...PROGRAM EXCALIBUR... 
30 GOTO 55:REM BRANCH IF OUT OF DATA 
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RESTORE 

The RESTORE statement resets the DATA statement pointer to the begin- 
ning of data. 

Format: 

RESTORE 
RESTORE may be given in immediate or program mode. 

Example: 

10 DATA 1.2.N44 

20 READ A.B,B$ A=1.B=2,B$="N44" 

30 RESTORE 

40 READ X.Y.Y$ x=1.Y=2,Y$="N44" 

RETURN 

The RETURN statement branches program control to the statement in the 
program following the most recent GOSUB call. 

Format: 

RETURN 

Each subroutine must terminate with a RETURN statement. 

Example: 

100 RETURN 

Note that the RETURN statement, for returning program control from a 
subroutine, and the RETURN key, for moving the cursor to the beginning of the 
next display line, are entirely different operations. You should have no trouble dis- 
tinguishing these two functions. 

STOP 

The STOP statement causes the program to stop execution and return con- 
trol to PET BASIC with a break message printed. 

Format: 

STOP 

On encountering a STOP statement, execution control is returned to PET 
BASIC. The following message is printed: 

BREAK IN line 

The line number in the statement above indicates where the STOP statement was 
executed. Typing in CONT from the keyboard continues program execution at the 
statement following the STOP statement. 
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Example: 

655 STOP will cause the message 

BREAK IN 655 to be printed. 

WAIT 

The WAIT statement halts program execution until a memory location 
becomes non-zero. 



Format: 



WAIT /address, mask 

( address, mask, xor 



where: 



address is a memory address, 

mask is a one-byte mask value, 

xor is a one-byte mask value. 

The WAIT statement does the following: 

1. Fetches the contents of the addressed memory location. 

2. Exclusive-ORs the value obtained in step 1 with xor, if present. If xor is 
not specified, it defaults to 0. When xor is 0, this step has no effect. 

3. ANDs the value obtained in step 2 with the specified mask value. 

4. If the result is 0, WAIT returns to step 1, remaining in a loop that halts 
program execution at the WAIT. 

5. If the result is not 0, WAIT processing is completed and program execu- 
tion continues with the next statement following the WAIT statement. 

The keyboard STOP key cannot interrupt execution of a WAIT statement. 
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BASIC ARITHMETIC FUNCTIONS 

ABS 

ABS returns the absolute value, or magnitude, of a number. This is the value 
of the number without regard to sign. 

Format: 

ABS(arg) 
where: 

arg is a numeric constant, variable or 

expression. 
Examples: 

A=ABS(10) Results in A=10. 

A=ABS(-10) Results in A = 10. 

PRINT ABS(X),ABS(Y),ABS(Z) 

ATN 

ATN returns the arctangent of the argument. 

Format: 

ATN (arg) 
where: 

arg is a numeric constant, variable or 

expression. 

ATN returns the value in radians in the range ±17. 

Examples: 

A=ATN(AG) 

? 180/77. ATN (A) Prints the value in degrees. 

COS 

COS returns the cosine of the argument. 

Format: 

COS(arg) 
where: 

arg is a numeric constant, variable, or expression 

representing an angle in radians. 

Example: 

A=COS(AG) 
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EXP 

EXP returns the value e ar 9. The value of e used is 2.71828183. 

Format: 

EXP(arg) 
where: 

arg is a numeric constant, variable, or expression in 

the range ±88.0296910. 

A number larger than the allowed range will result in an overflow error 
message. A number smaller than the allowed range will yield a zero result. 

Examples: 



?EXP(0) 

?EXP(1) 

EV=EXP(2) 

EV=EXP(50.24) 

?EXP(88.0296919) 

?EXP(-88.0296919) 

?EXP(88.029692) 
?EXP(-88.029692) 



Prints 1. 

Prints 2.71828183. 

Results in EV=7.3890561. 

Results in EV=6.59105247E+21. 

Largest allowable number, yields. 

1.70141 183E+38. 

Smallest allowable number, yields. 
5.877471 76E-39. 

Out of range, overflow error message. 

Out of range, returns 0. 



INT 

INT returns the integer portion of a number, rounding to the next lower 
signed number. 

Format: 

INT(arg) 
where: 

arg is a numeric constant, variable, or 

expression. 

For positive numbers, INT is equivalent to dropping the fractional portion of 
the number without rounding. For negative numbers, INT is equivalent to drop- 
ping the fractional portion of the number and adding 1. Note that INT does not 
convert a floating point number (5 bytes) to integer type (2 bytes). 

Examples: 

A=INT(1.5) Results in =1. 

A=INT(-1.5) Results in A=-2. 

A=INT(A+A%) 

X=INT(-0.1) Results in X=-1. 
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A caution here: since floating point numbers are only close approximations 
of real numbers, an argument may not yield the exact INT function value you 
might expect. For instance, consider a simple loop going from 2 to 4 by suc- 
cessively adding one-tenth (.1). 

FOR 1=2 TO 4 STEP. 1:?I= NEXT 



>.l 



2.4 

2.5 

2. 6 

2.7 

2.8 

2.9 

3 

3.1 

3.2 

3.3 

3.4 

3.49999993 

r-t. 59999999 

3.69999339 

3.79999999 

3.89999999 

3.99999999 

REflDV. 

You will see that the six numbers 3.5 through 4 are represented only ap- 
proximately. If these values were in an array A(0) through A (20). the function 
INT(A(20)) would equal 3, not 4 as would be expected. 

LOG 

LOG returns the natural logarithm, or log to the base e. The value of e used is 
2.71828183. 

Format: 

LOG(arg) 
where: 

arg is a positive, non-zero number, variable, or ex- 

pression. 

An Illegal Quantity error message is issued if the argument is zero or nega- 
tive. 
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Examples: 



?L0G(1) 

A=L0G(4) 

A=LOG(10) 

A=L0G(1E6) 

A=LOG(X)/LOG(10) 



Prints 0. 

Results in A=1. 38629436. 
Results in A=2.30258509. 
Results in A=13.8155106. 
Calculates log to the base 10. 



RND 

RND provides the ability to generate random number sequences in PET 
BASIC. At each reference, RND returns a number between and 1, 0<n<1. 



Format: 

RND(arg) 
RND(-arg) 

where: 

arg 



-arg 



Return random number. 
Store new seed number. 

is a positive, non-zero number, variable, or ex- 
pression. This RND function returns the next 
random number in sequence. The value of arg 
in this case is arbitrary; that is, the random 
number returned for a positive argument does 
not depend on the value of the argument, 
is a negative number, variable, or expression. 
The RND function stores a new seed. This 
causes subsequent random numbers to begin a 
new sequence based on the —arg value. RND 
(-arg) returns a small value, constant for the 
given -arg, that should be disregarded. 



Examples: 



A=RND(-1) 



A=RND(1) 



Store a new seed based on the 

value -1. 

Fetch the next random number in 

sequence. 

An argument of zero is treated as a special case in PET BASIC. It does not 
store a new seed, nor does it return a random number. RND(O) uses the current 
system time value Tl to introduce an additional random element into play. 

A pseudo-random seed is stored by the function: 

RND(-TI) Store pseudo-random seed. 

RND(O) can be used to store a new seed that is more truly random, by using 
the following function: 

RND(-RND(0» Store random seed. 
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You can compare these operations to a deck of cards: RND(-TI) is like shuf- 
fling the deck, RND(O) is like cutting the cards, and RND(-RND(0)) is like giving 
the cards both a shuffle and a cut. 

To generate random numbers in non-repeating sequences as would be 
needed, say, in games of chance, use RND(-RND(0)) to store a random seed and 
then fetch as many random numbers as needed with RND(1) references, where 1 
can be 1 or any other positive, non-zero number. 

Examples of using the RND function to generate random numbers on the 
PET are given in Chapter 5. 

SGN 

SGN, for sign of a number, can be used to determine if a number is positive, 
negative, or zero. 

Format: 

SGN(arg) 
where: 

arg is a numeric constant, variable, or 

expression. 

The SGN function returns: +1 if the number is positive, 

non-zero. 
if the number is zero. 
-1 if the number is negative. 
Examples: 

?SGN(-6) Prints -1. 

?SGN(0) Prints 0. 

?SGN(44) Prints 1. 

IF A>CTHEN SA=SGN(X) 

IF SGN(M)>=0 THEN PRINT "POSITIVE NUMBER" 

SIN 

SIN returns the sine of the argument. 

Format: 

SIN (arg) 
where: 

arg is a numeric constant, variable, or expression 

representing an angle in radians. 
Examples: 

A=SIN(AG) 

?SIN (45*Tr/1 80) Prints sine of 45 degrees. 
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SQR 

SQR finds the square root of a positive number. A negative number results 
in an error message. 



Format: 




SQR(arg) 




where: 




arg 


is a positive number, variable, or 




expression. 


Examples: 




A=SQR(4) 


Results in A=2. 


A=SQR(4.84) 


Results in A=2.2. 


?SQR(10) 


Prints 3.16227766. 


?SQR(144E30) 


Prints 1.2E+16. 



TAN 

TAN returns the tangent of the argument. 

Format: 

TAN (arg) 
where: 

arg is a numeric constant, variable or expression 

representing an angle in radians. 
Example: 

XY(1)=TAN(180.tt/180) 
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BASIC STRING FUNCTIONS 

ASC 

ASC returns the ASCII code number for a specified character. 

Format: 

ASC(arg) 
where: 

arg is a string constant, variable, or expression. 

If the string is longer than one character, ASC returns the ASCII code for the 
first character in the string. The returned argument is a number and may be used 
in arithmetic operations. ASCII codes are listed in Appendix A. 

Examples: 

?ASC("A") Prints 65. 

N=ASC(B$) 

X=ASC("STR") Prints the ASCII value of "S" (83). 

CHR$ 

CHR$ returns the string representation of the specified ASCII code. 

Format: 

CHR$(arg) 
where: 

arg is a valid ASCII code (see Appendix A) in the 

range 0<arg<255. 
CHR$ can be used to specify characters than cannot be represented in 
strings, such as the carriage return code and the double quotation mark. 

Examples: 

IF C$=CHR$(13) GOTO 10 Branches if C$ is a carriage return. 

?CHR$(34);"HOHOHO";CHR$(34) Prints the eight characters 

"HOHOHO" 

LEFT$ 

LEFT$ returns the leftmost characters of a string. 

Format: 

LEFT$(arg,count) 
where: 

arg is a string constant, variable, or expression. 

count is a numeric constant, variable, or expression 

specifying the number of leftmost characters to 
be returned, in the range 0< count <255. 
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Examples: 

?LEFT$("ARG",2) Prints AR. 

A$=LEFT$(B$,10) 

LEN 

LEN returns the length of the string argument. 

Format: 

LEN(arg) 
where: 

arg is a string constant, variable, or expression. 

LEN returns a number that is the count of characters in the specified string. 
Examples: 

?LEN("ABCDEF") Prints 6. 

N=LEN(C$+D$) 

MID$ 

MID$ returns any specified portion of a string. 
Format: 

! (blank) | Return all characters 

> ) from position to end. 

.count; Return count characters 

starting from position. 

where: 

arg is a string constant, variable, or expression. 

position is a numeric constant, variable, or expression 

specifying the character position in the string at 
which retrieval is to begin. Position 1 is the 
beginning of the string. If the position is beyond 
the end of the string, a null string is returned. 
This parameter must be in the range 
0<position<255. 

count if present, is a numeric constant, variable, or ex- 

pression that specifies the number of charac- 
ters to be returned. If omitted, or if it is larger 
than the count to the end of the string, all 
characters from the starting position to the end 
of the string are returned. This parameter must 
be in the range 0<count<255. 

An Illegal Quantity error message is printed if a parameter is out of range. 
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Examples: 

?MID$("ABCDE".2.1) Prints B. 

?MID$("ABCDE",3,2) Prints CD. 

?MID$("ABCDE",3) Prints CDE. 

RIGHT$ 

RIGHTS returns the rightmost characters in a string. 

Format: 

RIGHT$(arg.count) 

where: 

arg is a string constant, variable, or expression. 

count is a numeric constant, variable, or expression 

specifying the number of rightmost characters 
to be returned, in the range 0<count<255. 

Examples: 

?RIGHT$(ARG,2) Prints RG. 

MM$=RIGHT$(X$+"#"). 

STR$ 

STR$ returns the string equivalent of the numeric argument. 

Format: 

STR$(arg) 
where: 

arg is a numeric constant, variable, or expression. 

STR$ converts the number to the same format as it would be printed out in a 
PRINT statement. The first character of the string is a blank if a number is positive, 
or it is a minus sign if the number is negative. 

Examples: 

A$=STR$(14.6) 

?STR$(1E2) Prints 100. 

?STR$(1E10) Prints 1E+10. 

VAL 

VAL returns the numeric equivalent of the string argument. 

Format: 

VAL(arg) 
where: 

arg is a string constant, variable, or expression. 

The number returned by VAL may be used in arithmetic computations. 
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VAL converts the string argument by first discarding any leading blanks. If 
the first non-blank character is not a numeric digit (0-9), the argument is returned 
as a value of 0. If the first non-blank is a digit. VAL begins converting the string 
into real number format. If it subsequently encounters a non-digit character, it 
stops processing so that the argument returned is the numerical equivalent of the 
string up to the first non-digit character. 

Examples: 

A=VAL("123") 
NN=VAL(B$) 



BASIC FORMAT FUNCTIONS 

POS 

POS is a limited use function that returns the column position of the cursor. 

Format: 

POS(arg) 
where: 

arg is a dummy argument and may be string or 

numeric. 

For POS purposes, the character positions along each row are numbered 
through 39. Character positions for a string are numbered through 255. POS 
returns the current cursor position (0-255) except after a Home, Clear Screen, or 
POKE, which do not reset the POS indicator. The position is taken as the current 
cursor position before the POS function itself is typed. POS is reset to at each 
RETURN. 

Examples: 

?POS(1) At the beginning of a line, 

returns 0. 
?" [xTyTzl ABC";POS(1) With a previous POS value of 0, 

prints a POS value of 6. 



SPC 



SPC moves the cursor right a specified number of positions. 
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Format: 

SPC(arg) 
where: 

arg is a numeric constant, variable, or expression 

that specifies the number of skips to be printed. 
This parameter must be in the range 
0<arg<255. A value of prints 256 skips. 

SPC begins counting positions at the current cursor position before the SPC 
function itself is typed. 

Examples: 

?SPC(1);"H" 
H 

?SPC(5);"H" 
H 

TAB 

TAB moves the cursor right to the specified column position. 

Format: 

TAB (arg) 
where: 

arg is a numeric constant, variable, or expression 

that specifies the column position to which the 
cursor is to be moved. This parameter must be 
in the range 0<arg<255. 

TAB moves the cursor to the n+1 position, where n is the value of the 
specified argument. 
Examples: 

?"QUARK";SPC(10);"W" These two examples show the 

QUARK W difference between SPC and TAB. 

SPC skips ten positions from 
?"QUARK";TAB(10);"W" the last cursor location. 

QUARK W whereas TAB skips to the 10+ 1th 

position on the row. 
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BASIC SYSTEM FUNCTIONS 

FRE 

FRE is a system function that collects all unused bytes of memory into one 
block (called "garbage collection") and returns the number of free bytes. 

Format: 

FRE(arg) 
where: 

arg is a dummy argument, and may be string or 

numeric. 

FRE can be used anywhere a function may appear, but it is normally used in 
an immediate mode PRINT request. 

Examples: 

?FRE(1) Institute garbage collection and 

print the number of free bytes. 
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PEEK 

PEEK returns the contents of the specified memory location. PEEK is the 
function counterpart of the POKE statement. 

Format: 



PEEK(address) 
where: 

address 



is a numeric constant, variable, or expression 
specifying the address of the location whose 
contents are to be fetched. 
0<address<65535. 

Any memory locations from to 65535 can be PEEKed except the block of 
system locations from 49152 to 57599; these locations contain the 8K BASIC in- 
terpreter and have been PEEK-protected to discourage examination of proprietary 
software. The protected area returns a PEEK value of 0. Locations of interest that 
you might want to PEEK at are discussed in Chapter 6. 

Examples: 

?PEEK(1) Prints contents of memory location 1. 

A=PEEK(20000) 

ST 

ST represents the current value of the PET's I/O status word. This word is set 
to certain values depending on the results of the last input/output operation that 
affects the status word. 



Format: 



ST 



ST values for tape cassette I/O operations are shown in Table 4-3. 





Table 4-3. ST Values for Tape I/O 


ST Bit 
Position 


ST Numeric 
Value 


Tape READ 


Tape VERIFY 





1 






1 


2 






2 


4 


Short block 


Short block 


3 


8 


Long block 


Long block 


4 


16 


Unrecoverable 
read error 


Any mismatch 


5 


32 


Checksum 
error 


Checksum error 


6 


64 


End of file 




7 


-128 


End of tape 


End of tape 



162 



The status should be checked, if it is going to be checked, immediately after 
an INPUT# or GET# statement. 

Examples: 

10 IF ST< >0 GOTO 500 Branch on any error. 

50 IF ST=4 THEN ?"SHORT BLOCK" 

SYS 

SYS is a system function that transfers program control to an independent 
subsystem. 

Format: 

SYS(address) 
where: 

address is a numeric constant, variable, or expression 

representing the starting address at which ex- 
ecution of the subsystem is to begin. The value 
must be in the range 0< address <65535. 

Unlike other functions, SYS can be specified alone in an immediate program 
statement. Use of the SYS command is described further in Chapter 6. 

Tl. Tl$ 

Tl and Tl$ represent two system time variables. 

Format: 

Tl Number of jiffies since current startup. 

Tl$ Time of day string. 

Examples: 

?TI 
Tl$="081000" 

Usages of Tl and Tl$ are described in Chapter 5, under "Setting Time of 
Day." 

USR 

USR is a system function that passes a parameter to a user-written assem- 
bly language subroutine whose address is contained in memory locations 1 and 2, 
and fetches a return parameter from the subroutine. 
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Format: 

USR(arg) 
where: 

arg is the parameter value passed to the subroutine. 

The USR function is described in more detail in Chapter 6. 



USER-DEFINED FUNCTION 

DEF FN 

The DEF function (DEF FN) allows the user to define his own special purpose 
functions and use the functions in his program in the same way that the intrinsic 
PET BASIC functions are used. 

Format: 

DEF FN name(arg)=formula Define user function, 

where: 

name is a simple floating point variable name one or 

two characters in length . The name can be 
longer, but an alphabetic name of more than_ _ 
five lett er s yields a syntax error. The function is 
used in the program by referring to the name 
FNname. 

arg is a simple floating point variable name. This is 

a dummy assignment that represents the argu- 
ment value in the formula to the right. A string 
($) or integer (%) arg is not allowed. 

formula is any arithmetic expression containing any 

combination of numeric constants, variables, 
and operators. Normally the arg appears in the 
formula. 

A user-defined function is limited to one 80-character line: however, a pre- 
viously defined function can be used in the formula in another user-defined func- 
tion, so user-defined functions of any desired complexity can be developed. 

A user-defined function is used by typing in the function name, FNname, 
followed by the actual argument enclosed in parentheses. 

FNname(arg) Reference user function. 

Only a single argument can be passed to a user-defined function. The func- 
tion name can be redefined by another DEF FN with the same name in the same 
program. 
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The DEF FN definition statement is illegal in immediate mode. However, a 
user-defined function that has been defined by a DEF FN statement in the current 
stored program can be referenced in an immediate mode statement. 
Examples: 



10DEFFNC(R)=tt.R?2 



?FNC(1) 
A=FNC(14) 

55 IF FNC(X)>60GOTO 150 



Defines a function that calculates the 
circumference of a circle. It takes a 
single argument R, the radius of the 
circle, and returns a single numeric 
value, the circumference of the circle. 
Prints 3.14159265 (the value of it). 
Assigns to A the value calculated by 
the user-defined function FNC. 
Uses the value calculated by the user- 
defined function FNC as a branch 
condition. 
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CHAPTER 5 



Making the Most of PET Features 



In this chapter we go over features of the PET that you will come across 
sooner or later in your PET BASIC programs. Where the "feature" is a limitation or 
other stumbling block, we tell you how to get around it (if possible) or at least 
warn you about it. Where the feature is a real capability, we tell you how to use it 
to its fullest advantage. 

KEYBOARD ROLLOVER 

If you type rapidly you may type faster than the characters can be printed. If 
you press two or more keys simultaneously or press the second key before the 
first character is printed, a keystroke will be ignored — unless your keyboard has 
"rollover." Rollover "remembers" a keystroke until it is printed. Fortunately, the 
PET keyboard has rollover. 

Rollover remembers incoming keystrokes while a preceding keystroke 
is being processed. The "remembered" keystrokes are then processed. The 

keystrokes are remembered by storing them in a buffer until they are printed: 



Press Keys 




767 



Roll 
OmM 




Without this buffer, rapidly incoming keystrokes would be lost before printing — 
and rollover would be impossible. 

The following flowchart shows how rollover works in greater detail. The PET 
must store incoming keystroke #2 in the buffer until keystroke #1 is printed. 
Once keystroke #1 is printed, keystroke #2 is taken from the buffer and printed. 



Press 
Key! 




Press 
Key 2 








♦ 




+ 




Print 
character 




Store 

character #2 

in buffer 




♦ 










End of 
keystroke 
processing 


^^ printed ^^ 






A Yes 






Print 
2nd character 






1 






End of 
keystroke 
processing 





All you need to remember about rollover is that it is a beneficial feature of 
the PET keyboard that allows you to type in data faster than you could if rollover 
were not present. 
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Because of the size and type of keys used for the small PET keyboard, you 
may encounter minor data entry problems if you try to type fast on the small 
keyboard. These problem areas are described in detail below. If you have a full 
size PET keyboard, you might proceed to the next section, "The Keyboard Buffer." 

Two-Key Rollover {Small Keyboard) 

There are areas on the compact PET keyboard which do not give predictable 
results during rollover. The space key on the bottom row (a SPACE character is in- 
dicated hereafter by the symbol '¥') is coupled with the keys directly to the left 
and right, giving incorrect results. 

coupled 



SHIFT 


( OFF 

RVS 

1 ON 


B 1 ffl ] 
e |[ [ J 


(ill ~II?][?]|!S 


SHIFT 



When the RIGHT BRACKET [jj key and the SPACE key to its left are pressed 
simultaneously: 

Key-| Key 2 



SHIFT 


(§1 


(SI 


If 


ix'\\( } 

Y SPACE 


(?) 


f H RUN 
[ > STOP 


SHIFT 



correct rollover should print: 
but the PET often prints: 



]bf 



]<« 



The key coupling erroneously puts the " <" character (to the right of the "feS" key) 
and sometimes and extra "fef " into the buffer. The same problem occurs when the 
keys are reversed: 

Key2 Key 1 



HfflElfflH^SraHHE 



Instead of printing: 
the PET often prints: 



<6(] or tffcj<] 



The above examples show that rollover should not be depended upon 
when typing on the bottom row of the small keyboard due to the coupling 
problem with the SPACE key But the rest of the small PET keyboard can be 
depended upon for two-key rollover as a valuable safeguard against losing 
keystrokes. 
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Three-Key Rollover (Small Keyboard) 

Three-key rollover remembers the second and third keystrokes when three 
keys are pressed before the first key is released. Three-key rollover is unpredic- 
table on the PET and should not be depended upon, as correct printing depends 
upon the keyboard position of all three keys. This section is only for those 
readers who are interested in PET trivia and who want to experiment in 
three-key rollover. 

The compact keyboard may be divided into odd and even rows, as shown in 
Figure 5-1. 



Odd Even 




Figure 5-1. Odd/Even Division of PET Keyboard 

If the three keystrokes, Key-| , Key2, and Key3, are not adjacent to each other, 
then the result is correct and will be printed as: 

(characters of) Key-| Key2 Key3 

But if the three keystrokes are adjacent, the result is incorrect, and the type 
of error depends upon whether Keyi is in an odd or even column. Figure 5-2 il- 
lustrates the two different types of errors that occur depending on the position of 

Key-]. 

To demonstrate this phenomenon, let us use three actual examples from the 

keyboard. 

The first example shows three non-adjacent keystrokes simultaneously en- 
tered. The diagram shows F, U, N entering the buffer and then printing to the 
screen in the correct order. 
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Keyboard 

1 

Rollover 
Buffer 

I 

Result 


a) Key-| in odd column (shaded) 


b) Key-| In even column 


□ 


i<m? 






□ 'HDD 






Elm B00 






Q0 






2 3 






□ a * 





Figure 5-2. Odd/Even Three-Key Rollover 



Example 1 : 




Key-| Key2 Key3 



F U N 

TTT 




E00 


CO 



Tl~l 



r 



FUN 



The second example illustrates three adjacent keys with Key-| in an odd col- 
umn. The three keys used are Q, W, and E. Observe that an extra character has 
been put into the buffer without actually being typed in. This extra character is al- 
ways from the key directly to the right of Key3; in this example, R is directly to the 
right of Key3, E. Not only is Key3 not entered as the third key, it is not entered as 
the fourth key either; Key2 is again put into the buffer before Key3 is finally in- 
serted. 



Example 2: 



Key-] Key2 Key3 extra key 




Key-] Key2 Key3 

nn fwi m i r 




000 00] 



TTTTT 



r 



QWRWE 



77/ 



This is another example of a key coupling error. The keys throughout the 
keyboard are coupled together in various combinations, but only give problems in 
these certain combinations. Because of key coupling, the extra key is thrown in 
erroneously. 

The third example shows a set of three adjacent keys with Key-) in an even 
column. When Keyi is positioned in an even column, Key2 is passed by and never 
put into the buffer for printing. 



Example 3: 



Key-) Kev2 ^ ey 3 




Key-] Key2 Key3 






mm 



r 



SF 



The bottom row of the small keyboard is a special problem area for three-key 
rollover. It is inconsistent in relation to the three-key rollover for the remaining 
keyboard. 



',•»■! I 


f OFF 

RVS 
I OH 


(5 


in 


in 


SPACE 


i?: 


m 


Trun 
(stop 


SHIFT 



The simultaneous hitting of the three following keys: 



(SEE 



produces only the reverse graphic representation of a fourth key: 



».? 



The change from normal to graphic mode might be due to reverse coupling of the 
SHIFT and RVS keys. 
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The following sets show more of the rollover inconsistency that occurs with 
keys in the bottom row of the keyboard: 



Key, 
Column 



Keys 



Rollover Result 



Key Order 



Even 



#1 


#2 


#3 


Timi — i 



#4 

m 



[<bf 



Keys #1. 4, 3 
Keys #1. 3. 4 



Even 



#1 


#2 


#3 


SPACE 


mi? 



<<> 



Keys #1. 2, 2, 3 



#1 



#2 



#3 



Odd 



ac 






Keys #1. 3 
Keys #1, 3, 2, 3 



Odd 



#1 #2 #3 


2 1 f H 1 [RUN 

< J L > J (STOP 



Key #1 



These three-key rollover problems are not unique to the alphabetic and 
special character keys alone. The right-hand portion of the keyboard, containing 
the cursor controls and numerical keys, is a continuation of the even/odd column 
format as shown in Figure 5-1. Cursor control and numeric rollover respond like 
the alphabetic and graphic rollover. 

In summary, to avoid extraneous characters and combinations, hit only one 
key at a time on the small PET keyboard. Be especially careful when depressing 
any of the bottom row keys. Three-key rollover on the PET is a desirable option, 
but, as the examples show, should not be depended upon for completely accurate 
keyboard entry when typing is very fast or erratic. 
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BUFFER 

The PET has a 10-character keyboard buffer to hold the ASCII code 
equivalents of characters whose keys are pressed at the keyboard. This is nor- 
mally of no concern to you, but you should be aware of how the buffer operates 
for when you are programming PET inputs. 

To illustrate, load the final saved version of the BLANKET program (from 
Chapter 3) and press a key for display. While the display is occurring, press up to 
ten more keys, then sit back and relax. Each of the keyed-in characters will be 
fetched, in turn, and displayed by the BLANKET program. 

Let's look at this process in more detail. 

Whenever you press, say, the A key, it goes into the first storage location in 
the 10-character keyboard buffer: 

Keyboard 
Buffer 



1 


A 


2 




3 




4 




5 




6 




7 




8 




9 










The PET keeps track of the number of characters in the buffer and the location of 
the next character to be displayed. When GET fetches this character, a pointer is 
changed to indicate that this character has been fetched: 



Keyboard 
Buffer 





A 




2 




3 




4 




5 




6 




7 




8 




9 




10 
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When you press additional keys while the A is being displayed, the addi- 
tional characters are stored in the keyboard buffer beginning at the next available 
location. Suppose you type in A and while A is being displayed you type in B, C, 
D, and E. These characters are all stored in the keyboard buffer: 



Keyboard 
Buffer 



1 


A 


2 


B 


3 


C 


4 


D 


5 


E 


6 




7 




8 




9 










If you let the program continue, it will successively display all the letters 
stored in the keyboard buffer. After A is finished, the program fetches B and dis- 
plays it across the 20 lines, then it fetches C and displays it, etc. 

What happens if you type in more than ten characters? At the tenth 
character the buffer pointer wraps around, and continues storing the characters 
being keyed in from position 1 of the buffer. If you type in the first eleven letters of 
the alphabet, A-K, the first ten letters are stored in the ten buffer locations, then 
the letter K is stored back in the first buffer location, overlaying the A: 



-K overlays the A 





Keyboard 
Buffer 


1 


K 


2 


B 


3 


C 


4 


D 


5 


E 


6 


F 


7 


G 


8 


H 


9 


1 


10 


J 



When the program finishes displaying the A, it returns to fetch another 
character. But the PET has already fetched the character in location 1, so it con- 
siders the buffer empty! Keying in exactly eleven characters, or multiples of 
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eleven characters, produces no additional automatic displays in program 
BLANKET. 

Typing in 1 2 to 20 characters causes the most recent string of characters 1 2 
and on to be printed. For example, type in A, and while A is being displayed type 
in B. C, D, E, F, G, H, I, J, K. L, M. N, 0, P, Q, R, S, and T 





1st ten 
characters 




2nd ten 
Dharacters 




— ► 1 


A 




K 




2 


B 


L 


■4 Next character 


3 


C 


M 


displayed 
after A 


4 


D 


N 


5 


E 







6 


F 


P 




7 


G 


Q 




8 


H 


R 




9 


I 


S 




10 


J 


T 





The order of display is A, L, M, N. 0, P, Q, R, S, T 

The same holds true for additional multiple characters. Type in A and while 
A is being displayed type in the rest of the alphabet in order (you will have to be 
fairly quick to do this). 



1st ten 
characters 



2nd ten 
characters 



last ten 
characters 



— ► 1 


A 


2 


B 


3 


C 


4 


D 


5 


E 


6 


F 


7 


G 


8 


H 


9 


I 


10 


J 



M 



W 



(Q) 



(R) 



(S) 



(T) 



- Next character 
displayed 
after A 



-Last character 
displayed 



The negating effect occurs for every 1 1 characters. For instance, type in A 
and B, and let A display completely. Then, while B is displaying, type in C, D, E, F, 
G, H, I, J, K, and L. The additional ten characters are cancelled out just as the ad- 
ditional ten characters B through K were when entered while A was being dis- 
played. 
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Emptying the Buffer Before a GET 

This illustration of stuffing the keyboard buffer in advance is mostly a mild 
surprise, and a rather pleasant one, for program BLANKET. You can save up the 
characters you want displayed rather than keying them in one at a time in 
response to the HIT A KEY message. For other programs, however, it could come 
as a rude shock that idle toying with the keyboard during, say, a game could 
cause the game program to fetch an unwanted string of characters from the 
keyboard buffer. To avoid this, you can program a loop to empty the keyboard 
buffer, discarding the fetched characters, before fetching an intended response 
character. Implement a GET fetch by the code example below: 

95 FOR I=1TO10GET C* : NEXT 1= REM EMPTV KVBD EFR 
100 GET C* : IF C*="" GOTO 100 

Line 95 is the added line to empty the keyboard buffer by getting all ten possible 
characters that might have inadvertently been "stuffed" there. Line 100 is the 
standard BLANKET GET line. 

Edit program BLANKET by adding line 95 as shown above. Now press any 
combination of keys while a character is being displayed. Any stored characters 
are fetched and discarded by the GET loop, so you will not have any automatic 
display continuations with this loop added. 

TWO-KEY REPETITION 

A commonly used keyboard typing technique is to hold down one key while 
pressing and releasing another. 















t 






Press 
Ke Vl 




Press 
Key 2 




Release 
Key2 




Release 
Key -| 
















4 



Holding down one key while pressing another key is often an unnoticed, au- 
tomatic typing action used during a conversion from alphabetic to graphic or 
shifted mode. But it may be expanded to other uses, such as repeating sequences, 
to produce some interesting effects. 

Two-key repetition causes an alternating sequence of two characters. This 
method is similar to rollover because a sequence is produced, but the results are 
different. The following diagram shows what happens: 
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Two-key repetition is a feature of any PET keyboard, small or full size. 
For simplicity, only the compact keyboard is shown below. Keys available for 
Key-] will differ, depending on which keyboard you have. 

As with rollover, the keyboard is divided into odd and even columns, 
with only the odd column keys available for Key-j. However, the entire right- 
hand numeric board and cursor controls are available for Key-|, regardless of odd 
and even columns. 

Keys available as Key-| (shaded) 




fsiailtfSlei 



„ Ju#H Kill 

HE3EBEJ 



LiJLIJUJi-iJ 



aEEH 



Any key in the even columns used for Key-j will not produce a repeating 
sequence. Another peculiarity is that the cursor keys must be used as Key-] in 
either programmed or immediate mode. 

Ke Yl 

V V 



' "" UN ^ ill <= lllllNST 
SCREEN CURSOR CURSOR _ c| 
HOME J J <J J \z5 j l DEL 



Further limiting this feature is the requirement that Key 2 be to the right of 
Ke Yl in the same row, or below the row of Ke Y1 . If Key 2 is located above Key! or 
to the left, the process stops after the first printing of Key-|. 



Unshaded 



(DDDDDDD 



usable for \ I | | | I I LJ 

"HDDD 




Ke Yl 



[ | | I ) Shaded keys 
. . ___ > usable for 

□ □□□DOO ,S2 



A useful application to demonstrate two-key repetition is creating graphic 
diagrams with cursor movements. For example, draw the diagonal line shown in 
the diagram below. 
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To create this pattern, use the CURSOR i key as Key 1 and the asterisk (*) key 
as Key2- As you hold down Key-], repeatedly press and release Key2; the cursor 
will automatically move and print the "*" in a diagonal line. Following is a 
flowchart of the process: 



Press Key-| 

CURSORJ. Do 

not release 



Press Key2 * 
Release 




Release Key2 
CURSOR| 



As you can see, if you hold down Key-| as you press and release Key2, it ap- 
pears as if the two keys were being pressed alternately. 




•etc. 



But if Keyi is released while Key2 is depressed, Keyi will not be printed a second 
time. 

There are countless combinations available for repeating sequences on the 
PET. Since three-or-more-key repeating sequences have limited use and varied 
and unpredictable results, they will not be covered in this book, but may serve as 
an interesting exercise for the curious programmer. 
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STRINGS 

CONCATENATING STRINGS 

Recall that when creating strings the PET will accept alphabetic, graphic, 
and numeric characters, or combinations of these. While handling strings, it may 
be useful to connect one or more strings together into a single string by linking 
them end to end in a chain-like fashion: 



[ 



String 1 



I String 2 

I String '3 




/* 



String 4 1 String 1 j String 2 ! String 3 | 

Suppose, for example, we want to create one large string. Z$, containing the 
alphabet A through Z. By linking together the last character of A$, shown below, 
with the first character of J$, and the last character of J$ to the first character of 
S$, Z$ may be created: 

A$ J$ _ S$ _ 

ZS lATBTClDlElFlGlHlllJlKlLlMlNlOlPlOlRlSlTlUIVIWIXIYIZI 

Concatenating alphabetic strings, such a A$, J$ and S$, may be done using 
one simple statement: 

Z$=A$+J$+S$ 

The arithmetic operator "+" adds the contents of numeric variables or 
the numbers themselves. But when used with strings the "+" serves as a 
linkage sign to concatenate the strings together. Table 5-1 summarizes the ad- 
dition of strings and numbers. 

A word of caution: strings cannot be separated or broken apart in the 
same fashion as they are concatenated; they cannot be "subtracted" the 
way they are "added." For instance, to create string X$ containing the contents 
of J$ and S$ from our original strings A$, J$, S$. and Z$. it would be incorrect to 
type: 

X$=Z$-A$ Incorrect 
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Table 5-1 


Addition (+) Operations 




Sign 


Type 


Example 
Statemen 


Operation 


Result 


+ 


numbers 


P = 2 + 3 


2 + 3 


P = 5 


+ 


numeric variables 


Q=T + S 


12345 


Q = 23456 


T = 1 234 


5 +11111 


S =1 1 1 1 


1 23456 






+ 


alphabetic strings 


R$ = A$ + F$ 




A$ = A B C [ 


3E |A|B|C|D|E| |F|G|H|I|J| 


R$=|A|B|C|D|E|F|G|H|I|J| 


F$= FGH 


J 






+ 


numeric strings 


Q$ = T$ + . 


5$ 




T$ = 1 2 3 ' 


15 |1|2|3|4|5|- |1|1|1|1|1| 


Q$=|1|2|3|4|5|1|1[1|1|1| 


S$ = 1 1 1 


1 







Try it yourself. Type the values of A$, J$. S$. Z$. and X$=Z$-A$ into the PET as 
shown below. Your PET will respond with a ?TYPE MISMATCH ERROR IN LINE 

50. 

10 fl*="flBCDEFGHI" 
20 J#="JKLMNOPQR" 
30 S*="STUVWXVZ" 
40 Z#=R*+J*+S* 

50 X*=Z*-fl* " Incorrect attempt to get J through Z string 

S8 PRINT X* 

RUN 

?TVPE MISMATCH ERROR IN LINE 50 

The only valid arithmetic operator for strings is the addition sign (+). The 
other arithmetic operators (-, *, I) will not work. The Boolean operators (<, >, =) 
may be used for string comparison. 

The correct method of extracting part of a larger string is to use the string 
shift functions listed in Chapter 4. With the LEFT$, MID$, and RIGHTS functions it 
is possible to extract any desired portion of a string. In our example, the letters J 
through Z can be extracted as follows: 

50 X*=RIGHT*<Z$, 17> 

X$ = RIGHT$( |A|B|C|D|E|F|G|H|I|J|K|L|M|N|Q|P|Q|R|S|T|U|V|W|X|Y|Z| , 17) 
X$ = fjlK[L|M|N|0|P|Q|R|S|T|U|V|W|XTY]z1 

or, the string may be built by the concatenation of J$ and S$: 
58 x*=J*+S* 

X$ = |jTi<fLTM|N|0|P|0|R| + |S|T|U[V|W|X[Y|Zl 
X$ = lJTJ<TlfM|N|0|P|Q|R|S|T|U|V|W|X|Y|Zl 
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Printer/Screen Concatenation 

Another method is available if you want the strings concatenated for screen 
or printer output only, and not retained in the PET memory. This is done with the 
PRINT statement and semicolon separators (;) between the strings: 

PRINT fl*;J*;S* 

RUN 

ftBCDEFGHIJKLMNOPQRSTUVWXYZ 

The above result (A through Z) is equivalent to the contents of Z$ because the 
semicolons allow no embedded blanks between the strings. The only difference is 
that the screen result (A through Z) is not retained anywhere in PET memory. 
However, this method will not concatenate strings without embedded blanks if 
the strings were previously converted from a numeric variable with the STR$ or 
VAL functions; this will be discussed further in the "Numeric Strings" section. 

Concatenating Graphic Strings 

Concatenating graphic strings can be very useful in creating pictures and 
diagrams. Graphic strings are concatenated in the same way as alphabetic 
strings. 



NUMERIC STRINGS 

A numeric string is a string composed of numbers — or a combination of 
numbers and decimal point, negative sign, or exponent — that evaluates to a real 
number. A numeric string must be identified by a "$" following the string name. 

The contents of numeric strings may be assigned in two different ways, 
each yielding slightly different results. When numeric variables are assigned to 
numeric strings using the STR$ function, the sign value preceding the num- 
ber (blank if positive, "-" if negative) is transferred along with the number. 
This is shown in the short program below: 

10 flB= 12345 
20 T*=STR*<flB> 
30 PRINT"flB=";fiB 
40 PRINT"T*=";T* 

RUN 

flB= 12345 
T*= 12345 
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However, if a number is entered enclosed within quotation marks or entered 
as a string with an INPUT statement (or other similar statement such as GET or 
READ), the numeric string is treated like any other alphabetic or graphic string 
and no blank for a positive sign value is inserted before the number. This is 
demonstrated in the following program: 

I© fiB= 12345 
2@ T*=" 12345" 
30 PRINT"flB=".;i=lB 
46 PRINT"T*=";T* 

RUN 

flB= 12345 
T*= 12345 

Notice that there is no preceding blank printed in the T$ string above. 

Concatenating Numeric Strings 

Let's concatenate two strings, T$ and Q$, to make a new string, W$. W$ 
should contain the ten digits 1,2,3,4,5,6,7,8,9,0. 

10 T= 12345 
20 (3=67830 
30 T*=STR*<T> 
40 Q*=STR*<Q> 

50 W$=T*+Q*-« Create new string W$ 

60 PRINT"W*=";W# 

The result would be: 

W*= 12345 67890 

Why the embedded blanks before the 1 and 6? T$ and Q$ were originally 
positive numeric variables T and Q; when T and Q were converted from numbers 
into strings, the sign position was transferred along with the number. 



T bf1234ey Q IW67890J 






■ ' I I It ' 



T$ |tf|i|2|3|4|5| Q$ |tf|6|7|8|9|6| 

Therefore, when T$ and Q$ are concatenated, the new string W$ contains a 
first-digit blank and an embedded blank before the first digit of Q$. 

T$ + Q$ = w$ 

|tf|1|2|3|4|5| M6|7i8|9|0i |tf|1|2|3[4|5|tf|6|7|8|9|0| 

How do we get rid of the embedded blanks? The solution to this problem is 
much simpler than it may at first appear. The method is not to attack the contents 
of W$ and try to get rid of the blanks there, but to go back to where the blanks 
first pose a problem; when they are in the separate strings T$ and Q$. Look again 
at the contents of T$ and Q$: 

T$ Mll2l3l4l5l Q$ IK|6|7|8|9|0| 
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The only values we want to appear in W$ are the numbers to the right of the 
sign value in both T$ and Q$. Here again the string functions will aid us. The 
LEFTS, MID$. and RIGHTS functions allow the programmer to select any character 
or group of characters from within a given string. For our problem, we want just 
the characters to the right of the first character, the first character being the sign 
value (either blank or"-"). For instance. T$=RIGHT$(T$.LEN(T$)-1) would result 

in: 

Before: After: 

T$ |tf|1|2|3|4|5| T$ |1l2|3|4|5| 



Since the first digit desired is in the second position of the string, by telling 
the PET to use only the values starting in position #2 and moving to the right, it 
will drop the sign character. Therefore, to save programming steps and memory 
space, we can program the PET to concatenate T$ and Q$ and drop the leading 
blank all in one statement: 

W$=RIGHT$(T$.LEN(T$)-1)+RIGHT$(Q$.LEN(Q$)-1) 



Drop leading blank 
ofT$ 



Drop leading blank 
of Q$ 



Concatenate 
T$ and Q$ 

Our example program, amended to eliminate the sign digits, appears as 
follows: 



10 T=12345 



40 



T= |tf 12345| 

(3=67890 
Q = 1X67890| 
T*=STR*<T> 
T$ = |tfh|2|3|4[5l 
Q*=STR*<Q> 
Q$ = |tf|6|7|8|9l0| 

W#=R I GHT* < T* , LEN -C T* .■' - 1 > +R I GHT* C LEN < Q* >-l\ 

+RIGHT$(Q$.6-1) 
+RIGHT$(Q$.5) 

+Q$ |6|7|8|9|0| 



W$ = RIGHT$(T$.6-1) 
W$ = RIGHT$(T$,5) 



W$=T$ pT2l3|4|5| 
W$= [rr2T3T4l5|6|7|8|9|0| 



60 PRINT "W*= 



; W* 



RUN 

W*= 1 234567896 
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In the example above, note that line 50 does not check for negative num- 
bers. If both numbers are negative, then the leading character of T$ should not be 
dropped; this allows the negative sign to appear in front of the entire number W$. 
If the two strings have different signs, they should not be concatenated. When 
concatenating two strings with different signs, the following answers result: 



T$ Ml|2|3|4]5| + Q$ H6[7l8l9l0l = W$ Hfl1l2|3|4|5H6|7l8|9|0l 
T$ f— 1 1|2|3|4j5| + Q$ ltf|617|8|9|0j = W$ |-|1|2|3|4H5|6|7|8|9|0| 



Incorrect 
Incorrect 



In summary, any type of string can be concatenated. The only string 
type that must be treated differently is a numeric string converted from a 
non-string source. When the extra space for the sign of numeric strings is taken 
into consideration, then string concatenation becomes an easy, useful tool. 



PROGRAMMED CURSOR MOVEMENT 

In Chapter 2 we discussed the screen editing capabilities of six PET cursor 
control keys: CLEAR SCREEN/HOME, CURSOR UP/DOWN, CURSOR 
LEFT/RIGHT, INSERT/DELETE. RETURN, and REVERSE. 
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Although these six cursor keys function in immediate mode, it is also possi- 
ble to program cursor movement. This allows you to move output on and around 
the screen during program execution, when manual cursor movement via the 
keyboard is inhibited. By programming cursor movement you can format output 
without using programmed spaces and end-of-line checks. 

You can program cursor movement using 1) the PRINT statement, and 
2) the CHR$ function. This section will concentrate on programming cursor 
movement with the PRINT statement. Cursor movement using the CHR$ function 
will be discussed in the following section, "Programming Characters in ASCII." 

THE PRINT STATEMENT 

Only four of the six cursor keys are programmable using the PRINT 
statement: CLEAR SCREEN/HOME, CURSOR UP/DOWN, CURSOR LEFT/RIGHT, 
and REVERSE. The INSERT/DELETE key and the RETURN key are not pro- 
grammable with the PRINT statement. 

The programming rules to print any character apply also to cursor move- 
ment keys. The first step is to type PRINT followed by a set of quotation marks: 

PRINT" 
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Next enter cursor movements, along with any other characters, ending with 
another set of quotation marks. When a cursor key is pressed following an odd 
number of quotation marks, the cursor movement is programmed and a sym- 
bolic representation (see Table 3-1) of the cursor movement is printed. The 
PET remains in this program mode until it encounters an even number of 
quotation marks; then it returns to immediate mode. 

106 PRINT"*W\ 

■ Quotation set #1 : change immediate mode to program mode 

-Programmed representation of cursor right 

- Quotation set #2: change program mode to immediate mode 

When the PRINT statement is subsequently executed, the PET interprets the cur- 
sor representations and moves the cursor accordingly. 

RUN 

* * 
To practice simple programmed cursor movement, type in the following 
program: 

10 PRINT" <CLEAR SCREEN >"; 

20 PRINT"<CURSOR|>* <CURSORl>* <CURSORl>* <REVERSE><CURS0R1>* 

<CURSORt>* <CURSOR|>*" 
30 PRINT <CURSOR 1XCURSOR [> <CURSOR 1> <CURSORJ >"; 

The program should look like this on your screen: 

le pRlHTTr; 

20 PR i ht " mmm srwno* " ; 

30 PRINT") 
40 END 



Upon execution, the output should appear as follows: 

* a 

* S3 

* 

This may or may not have been what you expected. If you expected the character 
sequence: 

to print the asterisks in a vertical line: 

* 

# 

* 
or if you expected the character sequence: 

"Sn*.T*.T*" 
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to print the asterisks back up over the original three: 

23 

23 

you forgot about the automatic right movement of the PET cursor. Although 
the programmed cursor control informs the PET to move the cursor directly up or 
directly down, the asterisks will print in a diagonal line due to the cursor's auto- 
matic advance. Each time a character is printed, the cursor is automatically ad- 
vanced one space to the right to prevent overwriting the next character. The 
following diagram shows the cursor movement of the previous program: 



*lj 



\ 



Automatic cursor advance 

To print a vertical line, you must compensate for the automatic advance by 
moving the cursor back one space to the left before moving it up or down one 
space. For example, the following program statement prints a vertical line of three 
asterisks down and then a vertical line of three asterisks back up next to the origi- 
nal three. 

20 pr iht" mmm sr»."»r» " .; 

If you attempt to program the INSERT/DELETE and the RETURN keys, you 
will encounter some surprising results. 

The INSERT key is not programmable, although it appears to be. If you try to 
program the INSERT key, a " [TJ " will appear between the two sets of quotes. 
But when the statement is executed the PET simply ignores the INSERT character. 

The DELETE and RETURN keys remain in immediate mode. Trying to pro- 
gram the DELETE character in a PRINT statement will merely erase the previous 
character; the RETURN character in a PRINT statement will immediately move the 
cursor out of the statement and to the next line. 

A word of caution: if you wish to move the cursor with cursor control 
keys while entering characters between quotes in a PRINT statement, you 
must be sure to first get into immediate mode. If you remain in program 
mode, the cursor editing movements will be included as part of the program 
statement. To get out of program mode, type a second set of quotation marks or 
press RETURN. Either method will return the PET to immediate mode, allowing 
you to go back and make the necessary corrections. 
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THE CHR$ FUNCTION: PROGRAMMING CHARACTERS IN ASCII 

Certain PET characters cannot be programmed by enclosure within 
quotation marks. It is possible to program these select characters using their 
ASCII values. ASCII is the code name for "American Standard Code for Informa- 
tion Interchange." ASCII assigns a unique number in the range of to 255 to each 
alphabetic and numeric character, and to various symbolic characters. Table 6-4 
in Chapter 6 lists the standard ASCII codes. Appendix A shows the PET ASCII 
codes. Notice that the PET ASCII chart assigns numbers to cursor controls and 
graphic characters peculiar to the PET. 

The CHR$ function translates an ASCII code number into its equivalent 
character. The format of the CHR$ function is: 

CHR$( 



t_ 



ASCII number from to 255 of 
desired character or control 



To obtain the correct ASCII code for the desired character, refer to Appendix 
A. Scan the columns until you find the needed character or cursor control, then 
note the corresponding ASCII code number. Insert its ASCII code between the 
two parentheses of the function. For example, to create the symbol "$" from its 
ASCII code number, first scan the PET ASCII chart for "$". "$" has two ASCII 
values: 36 and 100. Which value should you use? Actually either number works 
just as well. But for good programming technique, once you select one number 
over the other, use that number consistently throughout the program. We will use 
number 36 and insert it into the function as follows: 

CHR$(36) 

Try printing this character in calculator mode on your PET. 

Now, try printing ASCII code 100: 
?CHR$a00> 

The result is the same. Experiment in calculator mode using any ASCII code from 
to 255. 

You can use the CHR$ function in a programmed PRINT statement as 
follows: 

READY. 

10 PRINT CHR* < 36 >i CHR* < 42 );CHR*<1 66 > 

RUN 

**! 
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Using CHR$ and ASCII values makes it possible to program or do com- 
parison checking for cursor controls such as RETURN and INSERT/DELETE. Sup- 
pose a program must check incoming characters from the keyboard to see if the 
programmer depressed the RETURN key; this may be needed when using an IN- 
PUT or GET statement. You could check for a RETURN which has an ASCII code of 
13, as follows: 

10 GET >it 

20 IF X*=CHR*a3> GOTO 340 

30 GOTO IS 

This test would be impossible if you tried to put a RETURN between quota- 
tion marks: 



20 IF X*=" | RETURN | "G0TO 340 

t 
Impossible 

This is impossible because when you depress the RETURN key following a set of 
quotes, it automatically moves the cursor to the next line: 

20 IF X*= 



As you can see, use of the CHR$ function and ASCII numbers is extremely 
helpful because it allows you to program characters and controls which could not 
otherwise be programmed. 



ARITHMETIC 

With the PET, you can do addition, subtraction, multiplication, and 
division, using up to 9-digit numbers in either calculator mode or program 
mode. A 9-digit length limit can cause problems. For example, integer numbers 
range from to 999999999; in dollars and cents this gives you a range of $0.00 to 
$9,999,999.99 (or $999,999,999 if cents are not used). Fractional numbers may 
range from 0.000000001 to 99999999.9. Although these limits pose no problems 
in many applications, numbers will frequently exceed these limits in business and 
scientific applications. 

Two programming methods can overcome the PET's numeric length 
limitations. The first method calculates the numbers as numeric strings. The 
second method calculates with multiple integer math, where a large number 
is separated into smaller segments, and each segment is handled separately. 
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ADDITION 

This section will demonstrate how both the numeric string and multiple in- 
teger techniques add two integer numbers larger than nine digits in length. Both 
the augend and addend must be positive integer numbers. The augend is the first 
number in the equation, and the addend is the second number, to be added to the 
first. 

Method 1 : Addition via Numeric Strings 

The steps involved are: 

1. Input the augend and addend as two positive numeric strings. 

2. Right justify the strings. 

3. Add the corresponding digits of the strings separately, including carry. 

4. Concatenate the answer into a one-string result. 

5. Print the answer string. 

Let us examine each step in turn. 

Step 1 : Input the augend and addend as positive numeric strings with 
an INPUT statement. 

Screen Display Representation of Memory Contents 



10 PRINT "n***flIlDI TION***" : PRINT A$ |1|2|3|4|5|6|7|8|9|0|1|2|3l4fo]6l 

B$ |5|7[9|4l3|5|7|2l 



2© INPUT R*,B* 

RUN 

***RDDITION**# 

? 1 2345S7S9© 1 23456 
??57943572 

A$ is the augend and B$ is the addend. Both may initially exceed the 9-digit 
length limit with the INPUT statement. For simplicity we will allow only positive 
integer numbers to be input. Once you are familiar with the basic concepts of the 
addition program, you may experiment and alter the program to allow for nega- 
tive and fractional numbers. 

Step 2: Right justify the strings. Before performing arithmetic operations, 
the numbers should be right-justified because, in BASIC, alphabetic and numeric 
strings are automatically left-justified. If the contents of numeric strings are added 
without first being right-justified, the answer will be incorrect, as shown below: 

Left Justified Right Justified 

Incorrect Correct 

1 2345678901 23456 1 2345678901 2345( 

+ 57943572 + 5794357J 

7028925090 1 23456 1 234565948067028 
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The following statements right-justify the shorter of the numeric strings A$ 
and B$ and fill it with leading zeros until it equals the length of the longer string. X 
is assigned to the length of A$, and Y to the length of B$: 

38 BLfiNK*=" 

40 X=LENCfl*> :'t'=LEN<B*> 

50 IF X<V THEN fl*=LEFT* < BLANK*, V-X>+fl* 

60 IF VCX THEN B*=LEFT*'CBLfiNK*, X-V>+B* 

BLANK$ in line 30 is a buffer string to fill the shorter numeric string with blanks. 
Lines 50 and 60 use the LEN function to compare X (the length of A$) to Y (the 
length of B$), and subtract the length of the smaller string from the length of the 
larger string. In our example B$ is shorter than A$, so the length of B$ is 
subtracted from the length of A$. 

60 IF V<X THEN B*=LEFT* < BLftNK * ,X-V > +B* 

Length of smaller string subtracted 
from length of larger string 

If the length of A$ is 16 digits and the length of B$ is 8 digits, the difference 
is 8 digits: 

A$ |1|2|3|4|5|6l7|8|9|0|1|2|3|4|5|6l X = 16 I X-Y=8 
B$ |5|7|9|4|3|5|7|2l Y= 8 16-8 = 8 



The number of blanks concatenated onto the front of B$ is the difference of 
the two lengths. Since the difference is 8, eight blanks are taken from BLANK$ to 
fill the shorter string. Blanks are then concatenated to the front of the shorter 
string B$ with the following statement: 

LEFT$(BLANK$(X-Y))+B$ 

The procedure is as follows: 

B$=LEFT$(BLANK$,X-Y) +B$ 

B$=LEFT$(BLANK$.16-8) +B$ 

B$=LEFT$(BLANK$,8) +B$ 

B$=LEFT$( Mti|^M^Mti|t^|t<|t^|t^| .8) +B$ 

B$=igggggggg + [5i7|9|4|3i5i7i2i 

B$=\W\m\W\m\5\7\9\4\3\5\7\2\ 



A$ H1|2|3|4|5|617|8|9|0|1|2|3|4|5|6| B$= |^|^|aM^|5[7j9J4J3j5|7j2| 

16 digits 16 digits 
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Step 3: Add the corresponding digits of the strings. At first glance, you 
might assume that A$ and B$ can now be added using the following statement: 

C$=A$+B$ 

This is incorrect. When strings are added with a plus sign they are not added, 
but are concatenated: 

C$=A$+B$ 

CS- N2|3|4|5|6|7l8|9l0|l|2|3|4|5|6| + M*|K|*|*[*|*|*|5|7|9|4|3|5|7|2l 

C$= |l|2|3|4l5|6|7|8|9|0|l|2|3|4|5|6|K|MmlKlKlKWK|5|7l9|4|3|5l7|2| 

We want to add the digits in the strings, not concatenate the strings. To add 
the contents of numeric strings, each digit must be extracted separately 
from the string, converted into a numeric digit, then added to one digit from 
the other string. This is done with a routine using the two string functions VAL 
and MID$. 

1029 FOR I=LEN<FI*> TO 1 STEP-1 

1 030 fi= VflL < M I D* < R* , I •■ 1 > > 
1 050 B= VflL < MID* < B* , I .■ 1 > > 
1100 NEXT 1 

where: A = digit extracted from A$ 
B = digit extracted from B$ 

"I" is a counter initialized to the length of the INPUT strings (either A$ or B$ 
may be used). With each FOR . . . NEXT loop iteration, the value of I is decre- 
mented by 1 . As I decrements, it allows the string contents to be extracted one by 
one, right to left, using the MID$ function: 

I MID$(B$.I.D 

16 bltftfbfKtfKlif579435 7# 

15 tfbltiMtfKtf 579435*2 

14 Mkftffcffcftltf 57943*72 

13 Uliti\i\j\itf\i57 9 4<$57 2 

12 bSfefliffe!bStfbffe(57943572 

11 H\i\i\iii bfbila(57#4357 2 

10 b( b( fci Izf b( b( Izl b( 5 7 9 4 3 5 7 2 

9 \i\A\itititi\im7 9 4357 2 

8 bSfeifeSfcilzifcSfeSif 579435 7 2 

7 t(kib!bitffe!|H!(5 7 9435 7 2 

6 tz! b! tz( trf bf* krflzf57943572 

5 t(bikiki#tibH!(5 7 9435 7 2 

4 fc>tzSfe!#bSfcik;fc)57 943572 

3 Kli(#6ltikitl 6(5 7 9435 7 2 

2 ti%$\t\iti\i\ib 7 943572 

1 fb(|z(tz(l!(b(b(b(57943572 
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The VAL function converts each extracted string literal into a numeric 



value: 



When I = 16, 



When I = 15. 



B=VAL(MID$(B$.16.1)) 

B=VAL($| 

B-BEI 



B=VAL(MID$(B$.15.D) 



|7|9KI3|5|7|2| 



After each digit of the numeric string is converted into a numeric constant, 
the necessary calculations to add them together are performed before the loop 
reiterates. The calculations to arrive at C$ are done in lines 1060 to 1090. 



1000 N=l 

1010 D=0 

102© FOR I=LEN<fl*:> TO 1 STEP -1 
1030 fl=VfiL<.'MIIi*<fl*, I,l>> 

1040 ft=l=l+D : D=0 

1050 B= , v , fiLCr'1ID*<E*, I,1.V> 

1060 C=fl+E 

1070 IF C>=10 THEN D=l 

1080 IF D=l AND 1=1 THEN N=2 

1 090 C*=R I GHT* < STR* < C > , N > +C* 

1100 NEXT I 



Initialize string pointer N. 
Initialize carry value. 

Initialize decrement counter I. 

Extract digits separately. Convert 
to non-string numeric. 

Add tens value from carry (D) to A. 

Extract digits separately. Convert 
to non-string numeric. 

Add extracted digits of A$ and B$. 
Carry tens value into D if C> = 10. 



Link sums into string answer. 



Variable D is initialized to zero at line 1010 and used as a carry value in lines 
1040, 1070, and 1080. During addition, if the value of C is greater than or equal to 
ten, a tens value is carried over to the next left position. The tens value carried 
over is stored in D: 

1 2 3 +1 4 +1 5 +l 6 ' 1 7 +1 890 1 2 
+ 5 7 9 43572 



123 5 1 4 7 32584 



193 



IfC is greater than or equal to 10, the carry variable D is incremented to 1 at 
line 1070; otherwise it remains 0: 

107© IF C>=10 THEN D=l 
A [b<6] 
+B PI 



C [ST| -15>=10 — DgTj 



A 
+B 



C @|] — -3<10 — D[^0l (no change) 

D will be either or 1 , but never greater than 1 because the maximum possi- 
ble sum of any two single-digit numbers is 18, thus the maximum tens value that 
can be carried over is 1. 

To prevent losing the carry in D, line 1 040 resets the value of A to A + D on 
the next loop iteration: 

1040 fl=fl+H : D=@ 

If this statement were omitted, the carry would never be carried out, and the value 
of A would be incorrect. When D is added to A, D is reset to in preparation for 
the next loop iteration. 

Step 4: Link the individual sums (C) and convert the total sum into a 
string. Just as the augend and addend were entered as strings to avoid the 9- 
digit length limit, the sums must be converted back into a string to avoid the 
length limit again during printing. This step converts the numbers back to string 
form. 

Line 1090 links the individual sums of C and converts the final answer back 
into string form. 

The STR$(C) function converts C into a one-digit string. The RIGHTS func- 
tion extracts the rightmost N characters from STR$(C). N is set to 1 at line 1000 to 
indicate that we want only the rightmost character to be extracted; the leftmost 
character of C is unnecessary because it is the sign value {"\A" if positive and "-" 
if negative) and would be concatenated between each number of C$ if we were 
not to exclude it. 

1000 N=l 

1060 C=fi+E 

C ffl =A[bS§+ B@2] 
1 090 C*=R I GHT* ■; STR* < C > , N > +C* 

C$=RIGHT$(STR$(C),1)+C$ 
C$=RIGHT$(1P1.1)+C$ 
C$=| + C$ 
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Even if C is a two-digit number, only the rightmost digit is concatenated onto C$. 
The tens value has already been assigned to D and will be added during the next 
loop iteration. 

N is set to 2 to include the last carry only if D=1 and 1=1 (signaling a carry 
on the last loop iteration). This is important, because if both conditions are true 
the loop will NOT iterate again to add D carry into A in line 1040, thereby losing 
the last carry value in D. By setting N to 2 on the last loop iteration, both digits of 
C are included in C$, and the last carry over is not lost 

1070 IF C>=10 THEN D=l 
CgT2]>=10 D[iifi] 

1080 IF D=l AND 1=1 THEN N=2 

Drjg im n[B2| 

1 090 C*=R I GHT* < STR* < C > .• N > +C* 

C$=RIGHT$( |g1TT2l ,2)+C$ 

C$=ff[2l+C$ 

C$= |1|2|X|X|X|X|X|X|X| 

The entire FOR . . . NEXT loop routine at lines 1020 through 1 100 does the 
following: 

1. It extracts individual digits from a numeric string and assigns numeric 
values to them (statements 1030, 1050). 

2. The digits from both strings are added together one digit at a time 
(statement 1060), checked for a carry value (statement 1070), and the 
carry is added to A in the next column (line 1040). 

3. The individual sums are then linked and converted back into a numeric 
string for printing (line 1090). 
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Step 5: Print the answer string. To complete this addition routine, the 
input and length test commands are inserted at the beginning of the FOR . . . 
NEXT loop (statements 1 to 1 01 0) and a PRINT and CLEAR string command 
is added to the end (statements 1 1 10 to 1 130). The final program now reads 
as follows: 



10 PRINT"r***AriBITITQN***" : PRINT 




Clear screen 


20 INPUT A*,B* 




Input numeric strings 


30 BLANK*=" 


tl 




40 X= 


=LENCR*.-> :V=LEN<B*> 






50 IF X<V THEN A*=LEFT*< BLANK*, V-X: 


>+fl* 


V Right justify strings 


60 IF V<X THEN B*=LEFT* < BLANK*, X-V 


> +B* 


1000 


N=l 






1010 


B=© 






1020 


FOR I=LEN<fl*> TO 1 STEP-i 






1030 


A= VAL < M I D* <:. fl* , 1 , 1 > > 






1040 


A=A+D : B=0 






1050 


B=VAL<MID*<B*, 1,\>> 






1 060 


C=A+B 




> Addition loop 


1070 


IF C>=10 THEN H=l 






1080 


IF B=l AND 1=1 THEN N=2 






1090 


C*=R I GHT* < STR* < C > , N > +C* 






1100 


NEXT I 






1110 


PR I NT : PR I NT " ANSWER= " .: C* 




Print C$ 


1120 


C*="": PRINT -GOTO 20 




Clear C$ 


1130 


END 







Two sample runs of the program should give the following output: 
***flBDITION**# 

? 12345 
??573 

ANSWER= 1 2924 

? 1 234567890 1 23456 
??57943572 

RNSWER= 1 23456794S06702S 

This addition routine overcomes the 9-digit numeric length limit. With a few 
alterations and additions, this routine can also be adapted to print out and round 
off to dollars and cents. 
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Method 2: Multiple Integer Addition 

Another way to overcome the 9-digit length limit during addition is to use 
the multiple integer addition method. 

Multiple integer math reorganizes a large number into smaller seg- 
ments. Each segment is handled independently during the addition. The in- 
dividual answers are joined together into one final answer, as demonstrated 
below: 

Input numbers I XXXX j XXXX l-i 

I xxxxixXXX ' I 

rA rA 

High I XXXX l-i XXXX l-i Low 

I XXXX I ' I xVyx 1 I 

Calculation I (Calculation 

High answer | XXXX | XXXX I Low answer 



Answer | XXXXXXXX | 



The steps involved in multiple integer addition are as follows: 

1. Input the augend and addend as two positive numeric strings. 

2. Divide the number into two equal parts of high, low. 

3. Calculate the sums of high-order digits and low-order digits. 

4. Concatenate the sums into one answer string. 

5. Print the answer string. 

Step 1 : Input the augend and addend as two positive numbers in 
numeric string mode: 

10 PRINT":»**MULTIPLE INTEGER ADDITION***": print 
20 INPUT A*,B* 

RUN 

♦♦♦MULTIPLE INTEGER ADDITION*** 

? 1 2345673901 23456 
??57943572 

A$ is the augend and B$ is the addend. The numbers are input as numeric strings 
because: 1) the numeric length limit is avoided and 2) it allows use of string 
functions to divide the numbers into small segments. 
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Step 2: You must establish the maximum length of numeric input in 

order to determine into how many segments to divide all numeric input. For in- 
stance, if the maximum length of numeric input is 16 digits, you may divide large 
numbers into two segments with a maximum of eight digits each. Any combina- 
tion is permissible as long as no one segment exceeds a length of nine digits. 

To keep our sample program simple, the maximum input length we will 
allow is 16 digits, to be divided into high and low segments of eight digits each. 



\ xxxxxxxxxxxxxxxx | 



high |XXXXXXXX| 



8 digits 



5 



XXXXXXXXI low 



8 digits 



For our sample program the divider point variable F is calculated to one-half of the 
larger input length. 

First, determine which input string is longer. The lengths of A$ and B$ are 
assigned to variables X and Y respectively. 

1 008 X=LEN C fl* > ■ V=LEH C B$ > 

Next, the lengths are compared. If X> Y (length of A$ is larger than length of 
B$) then variable F, the divider variable, is set to one-half the length of X. But if X is 
smaller than Y, the program drops through and F is set to one-half the length of Y. 

1002 IF X>V THEN F=X/2 ■ GOTO 1006 
1004 F=V/2 

In this example, A$="1 2345678901 23456" and B$="57943572"; let's run 

this through: 

1 080 X=LEN < fl* > : V=LEN < E* > 

X = 16 Y =8 

1002 IF X>V THEN F=X,'2 : GOTO 1006 

16>8 true statement, therefore 
F = 1 6/2 
F = 8 
program continues at line 1006 

Once the value of F is set, the program continues at line 1006. Statement 
1006 compares the value of F to the integer value of F. If F is larger than its integer 
value, then F is assigned the value of its integer value plus 1. This is basically a 
method of rounding F up to the nearest integer if F is a fractional number. For ex- 
ample, if the value of F equals 7.5, line 1006 would ensure that F is an integer 
number so that both A$ and B$ may be divided as easily and evenly as possible. 

1006 IF F>INT<F> THEN F=INT<F>+1 

If 7.5>7 then F = 7+1 
F = 8 
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To obtain the high (H) and low (L) numeric values for both A$ and B$, use 
the following statements: 

i S00 X=LEN < fl* > : V=LEN < B* > 

1002 IF X>V THEN F=X/2 : GOTO 1006 

1004 F=V/2 

1006 IF F>INT<F> THEN F=INT"CF> + 1 

1008 F*=LEFT*<2ER0*,F> 

1010 IF X<=F THEN flH=0:flL=VfiL<fl*>:GOTO 1040 

1 020 flH=VBL < LEFT* < fl* , X-F > > 

1030 AL=VflLCRIGHT*<(=l*,F>> 

1040 IF V<=F THEN BL=VfiL<B*> : GOTO 1070 

1050 BH=VflHLEFT*<Bt,V-F>:) 

1060 EL=VflL<RIGHT*<B* J F>> 

Statements 1010 and 1040 compare the string lengths with the divider point F 
(8). If the string is shorter than eight, AH (or BH) is assigned a zero value, leaving 
only AL (or BL) equal to A$ or B$. If the string is longer than eight it must be 
divided into high and low segments; AH or BH — the high segments — are 
assigned the value of the leftmost LEN(X or Y) minus eight digits at 1020 and 
1050. 

1020 flH=VHL<XEFT*<fl*, X-F> > 

AH=VAL(LEFT$(A$.16-8» 

AH=VAL(LEFT$( ni2|3|4|5|6|7|8|9|0|1|2|3|4l5f6] ",8)) 

AH^VAL( |1|2|3|4|5|6l7l8l ) 

AH = [01 2345678] 

To obtain AL, the rightmost eight digits are extracted from A$: 
1030 flL=VflL<RIGHT*<fi*,F>> 

AL=VAL(RIGHT$( 11 |2|3|4|5|6|7|8[9|0|1[2|3|4|5l6l .8)) 

AL=VAL( |9|0|1|2|3T4]5l6| ) 

AL= |fa(90123456| 

The same procedure is used to extract BH and BL. Notice that the VAL 
function converts the strings into numbers. 

Step 3: Once the large strings are divided into segments small enough for 
the PET to handle, addition can begin. Multiple integer addition adds correspond- 
ing groups of numbers by adding AH and BH together and AL and BL together. 
Whole groups of digits are added, instead of individual numbers. When a number 
is handled as a group of digits and not as a numeric string, the addition of each 
number does not have to be done digit by digit as with the numeric string 
method. The PET can add numbers, whereas it is unable to add numeric 
strings. 



AH 0123456781 AL 090123456 



+BH 000000000 +BL 057943572 



CH |012345678| CL | 0148067028] 
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First, the low segments AL and BL are added using the following program 
statement: 

107© CL*=STR*<BL+BL> 

nuinoer 
CL$ = converted = (numeric sum of AL+BH) 
to string 

The sum of AL and BL is converted into numeric string form when assigned 
to CL$. It isn't necessary that the sum be in string form, but it is much simpler to 
test for carry-over using the LEN function at line 1080. 

Line 1 075 truncates the leading blank from the front of CL$. Remember that 
when a number is converted into a string the leading blank is included. We do not 
want this leading blank as part of CL$ when we concatenate the high and low 
segments together, therefore we truncate it with the MID$ function. 

Line 1080 tests the length of sum CL$ against the segment length F. If the 
length of CL$ is greater than F, the leftmost digit is carried over and added to the 
sum CH$. (The value of D is equal to either or 1.) 

CH$ is obtained by adding AH, BH, and the carry D. Statements 1070 to 
1090 show the process of adding the high and low numbers to obtain CH$+CL$. 

1S70 CL*=STR*<FIL+BL> 

CL$=STR$(| bi901 23456I + |b67943572| ) 

CL$=STR$( |bi148067028l ) 

CL$= MTT4T,8|0|6|7l0|2|8| 

1 ©75 CL*=M I D* < CL* , 2 .■ LEN < CL* > - 1 > 

CL$=MID$( |t(|l|4l8l0|6|7|0|2|8| ,2.10-1) 

CL$=MID$( |iz(|1|4|8|0[6|7|0|2|8| .2.9) 

CL$= |1|4|8|0|6|7|0|2|8| 

1080 IF LEN<CL*>>F THEN D=l 

LEN(CL$)=9 ;F=8 
9>8— D=1 

1 090 CH*=STR* < flH+EH+Ii > 

CH$=STR$( |i<1 23456781 + |fei00000000| + 0) 

CH$=STR$( |b(1 2345679I ) 

CH$ HtHl|2|3|4|5|6|7|9| 
1 0.95 CH*=M I D* < CH# , 2 , LEN < CH* > - 1 > 

CH$=MID$( |lilH|2|3l4|5l6|7|9| ,2,10-1) 

CH$=MID$( lb(h |2|3|4|5|6l7l9l ,2,9) 



CH$= |1|2|3|4|5|6|7|9| 
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Step 4: The last step before printing is to concatenate the two sums into 
one answer by linking CH$ to the front of CL$. The preceding space and carry D 
are truncated from CL$ by selecting the rightmost eight digits from that string 
(see the previous discussion of Numeric Strings for further explanation of this 
method). 

1 1 ©0 C*=CH*+R I GHT* < CL* , F > 

C$^CH$ [5TTT2|3|4|5|6|7|9| + RIGHT$(CL$ Pl |4|8l0t6|7|0|2lg ,8) 
C$= M1|2|3|4|5|6|7|9| + |4|8|0|6|7|0|2|8| 
C$= Hi(|1|2|3|4|5|6|7|9|4|8|0|6|7|6l2T8l 
Step 5: Print the answer C$. 
1110 PRINT : PRINT"ANSWER=" ; C* : PRINT 

The program is now complete. In summary, this Multiple Integer Addition 
program accepts two positive integer numbers up to 1 6 digits long, divides 
them into high and low segments of eight digits each, and adds the corres- 
ponding high segments and low segments. The two sums are then concate- 
nated into a single string answer with a maximum length of 17 digits. This 
Multiple Integer Addition program allows you eight more digits than the PET's 
built-in maximum, yielding greater accuracy and much more flexibility. 

Below is the listing of the program with a sample run. You may wish to 
amend this program or create your own to allow for decimal or negative numbers. 

i @ PR INT" r»**MULT I PLE I HTEGER ADD I T I ON*** " : PR I NT 



28 INPUT fl*,B* 



Input numeric strings 



•V=LEH<B*> 

F=X/2 : GOTO 1 006 



1000 X=LEN(fl*J 

.1002 IF X>Y THEN 

1004 F=V/2 

1006 IF F>INT<F> THEN F=1HT<F>+1 

1 008 F*=LEFT* < ZERO* .. F > 

1010 IF X<=F THEN flH=0:flL=VflL<fl*> 'GOTO 1040 

1 020 fiH= VflL ■: LEFT* <. fi* , X- F > > 

1 030 FlL= VflL < R I GHT* < fi* , F > > 

1040 IF V<=F THEN BL=VflL<E*> 

1 050 BH=VfiL < LEFT* < B* , V-F > > 

1060 bl=vrl<right*<:b*, f> > 

1 070 cl*=str* ( rl+bl > 

1 075 cl*=m i d* < cl* , 2 , len < cl* > 

10S0 IF LEN<CL*>>F THEN D=l 

1 090 CH*=STR* C flH+BH+D > 

1095 CH*=M I D* < CH* , 2 , LEN < CH* > - 1 

1 1 00 C*=CH*+CL* 

1110 PR I NT : PR I NT " flNSWER= " ; C* ■ PR I NT Print answer 

1 1 20 flH=0 : flL=0 : BH=0 : BL=0 ■ B=0 : CH*= " " ■ CL*= " " : €■■$■= " * 

1130 END 



GOTO 1070 



-i: 



Set divider point, F 



Separate A$ and B$ 
into parts: 
high and low 

Add low strings 

Add high strings 

Add high and low answers 



■GOTO 20 



201 



♦♦♦MULTIPLE INTEGER ADDITION*** 

? 1 234567890 1 23456 
757943572 

ANSWER* 1234567948067828 

SUBTRACTION 

As with addition, there are two methods of subtraction. The first 
method uses numeric strings by converting the input strings to numeric con- 
stants, then back to strings for printing. The second uses multiple integer 
math. 

Method 1 : Subtraction via Numeric Strings 

This subtraction program contains many sections of the "Addition via 
Numeric Strings" (page 190) program with a few changes. The steps involved are 
as follows: 

1. Input the minuend and subtrahend as two positive numeric strings. 

2. Right justify the strings. 

3. Determine the larger numeric string. 

4. Subtract corresponding digits of the strings separately with borrowed 
carries. 

5. Concatenate the answer into a one-string result. 

6. Eliminate leading zeros in the answer string. 

7. Print the answer string. 

At the end of this section is a complete listing of the sample program to be used 
as demonstration. 

Step 1 : The first step is to input the minuend and subtrahend as two posi- 
tive numeric strings using an INPUT statement: 

Screen Display Memory Contents 

10 PR I NT " ***SUETRACT I ON*** " = PR I NT 
20 INPUT fl*,B* 

RUN 

***SUBTRACT I ON*** 

? 1234567890 12 A$ HI2I3|4I516|7I8I9I0I1|2| 

??57943572 B$ l5|7|9|4|3|5[7T2l 

A$ is the minuend (the first or top number entered, from which another number is 
subtracted). B$ is the subtrahend (the number subtracted from the minuend). 
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Step 2: Align the minuend and subtrahend by right-justifying both 
numeric strings. This process is the same as was presented in step 2 of the "Ad- 
dition via Numeric Strings" program (page 190). 

30 BLfiNK*=" 

4© X=LEN < fil* > ■ V=LEN < B* > 

50 IF X<V THEN fl*=LEFT*< BLANK*, V-X>+fl* 

60 IF V<X THEN B*=LEFT* < BLANK*, X-V>+B* 

Step 3: For subtraction, we must determine which numeric string has a 

larger value. Although the input strings may be equal in length, their values can 
be quite different. For simplicity in our example, the minuend, A$, is assigned the 
larger value, and the subtrahend, B$, is a smaller value. Ideally, the minuend is al- 
ways the larger value, but this cannot be guaranteed. 

The values of A$ and B$ are compared using the VAL function in state- 
ments 65 and 70: 

65 IF VfiL<CfttO=VflL<E*> THEN C*="0"-GOTO 1150 
70 IF VflL<fi*>>VRL<B*> GOTO 10O0 

If A$ is larger than B$, we have a simple subtraction problem, and the program 
drops to line 1000. If B$ is larger than A$, or we are subtracting a larger number 
from a smaller number, the program prepares for a negative answer. 

If the subtrahend is larger than the minuend (B$ is larger than A$), the 
answer will be negative. To subtract two numbers that yield a negative answer, 
program a small routine to switch the contents of A$ and B$ so that the value of 
A$ is larger than B$. Subtract B$ from A$, and the difference is C$. To make C$ 
negative, a negative sign, "-", is concatenated onto the front of 
C$: C$="-"+C$. 

Let us subtract 5 from 3, for example. This presents a subtraction problem 
where VAL(B$)>VAL(A$). or the subtrahend is larger than the minuend. 

a$ m 
b$ m 

Switch A$ and B$ 

A$(U B$[3] — A$(5] B$[3] 
Subtract: VAL(A$)-VAL(B$)=C$ 

A$[H - B$U — C$[2] 
Convert to negative 

C$ ="-" + C$ 

"-" + C$ [2] — C$ F2) 
Answer: 

C$ EH 
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The variables are switched at line 80. 
se Xt=fl* : fl*=B* : B*=X* 

Program Statement Memory 





X$ A$ 


B$ 


. 


3 


5 


X$=A$ 


3 3 


5 


A$=B$ 


3 5 


5 


B$=X$ 


3 5 


3 



X$ acts as a storage string to prevent losing the contents of an entire string. 
Without X$, the original contents of A$ would be written over and the contents of 
B$ would be written back into itself: 

Program Statement Memory 

A$_ B$_ 

• 3 5 

A$=B$ 5 5 Incorrect 

B$=A$ 5 5 

Later in the program we will need to know if the variables have been 
switched. We therefore set a marker to signal that A$ and B$ have been switched. 
Use variable S for this: S remains if the variables have not been switched. If the 
variables are switched. setS=1. Later, at line 1140. if S=1 it signals that a nega- 
tive sign must be concatenated to the front of C$. Line 90 sets S=1 if the values of 
A$ and B$ have been switched. 

9@ S=l 

Remember that after the strings are properly switched, a value of 1 is 
assigned to S to signal that the numbers have been switched and a negative 
answer is needed. The negative answer is obtained by concatenating a negative 
sign to the front of the answer before it is printed. This occurs at statement 1 140, 
where C$ equals the answer to the problem. 

1140 IF S=l THEN C*="-"+C* 
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Step 4: Whether the final answer is to be negative or positive, the value of 
A$ is now larger than B$. We can now perform simple subtraction. The subtrac- 
tion subroutine occurs at lines 1000 to 1080. The routine is taken directly from 
lines 1020 to 1100, step 3 of the "Addition via Numeric Strings" program (page 
192), because the digits are extracted from the strings in the same manner. 
However, at line 1050, the carry variable D is now used as a "borrow" variable. If 
(A-B)<0, then a tens digit must be borrowed from the direct left column to in- 
crease the value of A by 10. D is set to -1 because a "1" is being borrowed, 
therefore decreasing the value of the direct left column. Once A is larger than B, B 
is subtracted from A, placing the result in C: 

1000 REM**SUBTRflCTION ROUTINE** 

1010 FOR I=LEN<fl*> TO 1 STEP-1 

1 026 fl= VHL < M I B* < fl* , 1 , 1 > > 

1030 fi=fl+B •' B~0 

1 040 B= VfiL < M I B* < B* ,1,1 > > 

1050 IF (fl-B><0 THEN B=- 1 : fl=fi+ 1 

1060 C=fl-B 



A 
-B 


^+10^+10^+10 j»' + -" l 3»' +10 

1 2 3 3jf if 5f 7 8 8 ^f J2T 1 2 
000057943572 


C 


1 23398845440 



Step 5: Concatenate the answer into a one-string result. This function is 
taken directly from line 1090 of the "Addition via Numeric Strings" (page 194) 
program, except that the N is replaced with a 1. Since there will never be a final 
carry as there is in addition, only one digit will be used in every iteration. In our 
subtraction program, concatenation of the individual answers into one result oc- 
curs at line 1070. 

1070 C*=RIGHT*<STR*CO,i;'+C* 

Step 6: In subtraction, it is possible to pick up leading zeros in the final 
answer. We eliminate these leading zeros before printing the answer. The FOR . . . 
NEXT loop in lines 1090 to 1 120 checks and eliminates all leading zeros, using 
the VAL function and variable L as a counter. 

1090 FOR I~l TO LEN<C*> 

1 1 00 IF VFIL < M I B* < C* ,1,1 > > =0 THEN L=-L+ i 

1110 IF VflL < LEFT* C C* , I .':■ > <>0 THEN I ~LEN < C* > 
1120 NEXT I 

The FOR . . . NEXT loop, which iterates from 1 to the length of the answer 
C$, searches for leading zeros or blanks by extracting each digit from C$ and com- 
paring it to zero. It compares digits from left to right. If it identifies a zero or blank, 
counter variable L is incremented by 1 (statement 1 1 00). As soon as the first non- 
zero or non-blank character is encountered, loop counter I is set to the length of 
the string so the program may drop out of the loop immediately. 
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Once we have determined the number of leading zeros in the answer, we 
separate the leading zeros from the remainder of the answer C$. At line 1 130, the 
RIGHTS function takes the LEN(C$)-L rightmost digits and stores them in the 
answer variable C$. 



:$=|0|0|1|2|3|5|7| 


LEN(C$)=7 


I MID$(C$,I.D 




1 0012357 =0 

2 0012357 =0 

3 0012 35 7 < >0 
7 


L = 1 

L = 2 

l=LEN(C$) 

I = 7 drop out of loop 


1138 C*=R I GHT* <<:*.• L,EN<C*> - 


-L> 


C$=RIGHT$ (101011 12|3|5|7|,7-2) 




C$=RIGHT$ (|0|0|1|2|3|5|7|,5) 




C$=|1|2|3|5|7| 





Step 7: Print the answer string C$. But before we print C$, we check to 
see if the answer is to be negative by testing variable S at line 1 140. If S=1, that 
means that originally A$<B$, and the final answer is to be negative, so a nega- 
tive sign is added to C$. If S=0, the answer is positive, so nothing is added. Line 
1150 prints C$: 

1148 IF S=l THEN C*="-"+C* 

J. 1 30 PR I NT ■ PR I NT " hlNSWER= " ; C* : PR I NT 

The last lines, 1 160 through 1 180, clear all strings and variables to zero, or 
to null mode and return the program to the beginning for the next input numbers. 
The total program listing, complete with a RUN, is listed below. 
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1 a PR I NT " .T***SU£TRFICT I ON*** " : PR I NT 

26 INPUT fl*,B* 

36 BLflNK*=" 

48 X=LEN<f=l*> V 

50 IF X<V THEN 

60 IF V<X THEN 

65 IF VflLCfl*::' = 

IF VflLXfl*>>=VflL<B* 
X*=f=l* : l=l*=B* : B*=X* 
3= 1 

REM**SUBTRflCT I ON 

FOR I=LEN<fl$0 TO 

fl=VflL':.'MID*(Fl*, I, 

fi=fl+D : D=0 

B=VflLa'1ID* 

IF (fi-EXS 

C=fl-B 

C*=RIGHT*>: 

NEXT I 

FOR 1 = 1 TO lencc*:j 

IF VflLCMIDtCC*, I, 1> 

IF VfiL<LEFT*<C*, I > > 

NEXT I 

C*=R I GHT* < C* .. i_EN < C* 



7W 
88 
90 S : 

i 000 
.1 1 
I 020 

1 030 

1 040 

:L 050 

1 060 
.1 070 
.1 030 
1090 
1 1 00 
.1. 1 1 

1120 
1 1 30 
1140 
J. 1 50 

I 1 6© 
1 1 65 

I I 70 
113© 



LEN'::B*::< 

H*=LEFT* >: BLANK* , V- 
B*=LEFT* < BLANK* , X- 
RLCB*> THEN C*="0' 
GOTO 1000 



ROUTINE** 
1 STEP-1 



;b*, I.. 
THEN 

5TR$<C 



i::o 

D=- 



1 fl=H+ 1 



1>+C* 






IF 3=1 THEN 
PR I NT: PR I NT' 
C*="" fl*=" " : 

R=0 : B=0 0=0 

G0T020 
END 



Clear screen 

Input numeric strings 

Right justify strings (from 
,+fi* / lines 20-60 of the addition 

•'+B$! pro9ram * 
30TO 1 1 50 

If A$<B$, switch strings 



Subtraction loop (based on 
. lines 1020-1 100 of the addition 
program) 



THEN 
THEN 



=L+1 
=LEN< 



<C*>J ai 



runcate leading zeros 
and blanks 



C*="-"+C* 
ANSWER- ";C*: PR I NT 
B*= " " : X*= " " 

0=0 3=0 : X=0 : V=0 : 



Print answer 
> Clear strings and variables 



***SUBTRRCT I ON*** 

? 1234567896 12 
??57943572 

fiNSWER= 12339S845440 
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Method 2: Multiple Integer Subtraction 

The alternative method to numeric string subtraction is multiple integer 
subtraction. Recall from the previous discussion of multiple integer addition that 
the multiple integer method divides a large number into smaller segments, calcu- 
lates the segments separately, and joins the answers into one string. This method 
evades the 9-digit length limit. 

The total process of multiple integer subtraction is as follows: 

1. Input the minuend and subtrahend as two positive numeric strings. 

2. Determine which string has the larger value. 

3. Divide the numbers into parts: high. low. 

4. Calculate the difference of low- and high-order digits. 

5. Concatenate the differences into a one-string answer. 

6. Truncate leading zeros. 

7. Print the answer string. 

At the end of the subtraction section is the sample program used to demonstrate 

multiple integer subtraction. 

Step 1 : Input the minuend and the subtrahend as two positive numeric 

strings: 

10 PRINT":***MULTIPLE INTEGER SUBTRACTION***" = PRINT 
20 INPUT fit, E* 

RUN 

***MULTIPLE INTEGER SUBTRACTION*** 

? 1234567890 12 
??5?943572 

A$. the minuend, and B$, the subtrahend, are entered as strings to avoid the 
9-digit length limit. 

Like multiple integer addition. A$ and B$ are divided into smaller segments. 
The maximum input length is arbitrarily set at 1 6 digits, so that we can divide the 
largest possible string into equal segments of eight digits each. 

Step 2: Determine which input string has the larger value. If A$ is equal 
to B$ then the program drops down to line 1 190 to print a zero answer. If B$ is 
larger than A$ the difference is negative and extra steps are needed. 

If the answer is to be negative, the contents of the two strings are switched 
to put the larger value in A$ and the smaller value in B$. They are then subtracted, 
and a negative sign ("-") is concatenated onto the front of the difference (C$) as 
was demonstrated in line 70 of "Numeric String Subtraction" (page 204). Line 30 
is used here to direct the program past the switching routine if switching is not 
needed. 

3© IF VRL<fl*»Vf=lL<B*> THEN 1000 

40 X*=fi* : fl$=B* : B*=X* 

50 S=l 
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If the value of B$ is larger than the value of A$, the contents of A$ and B$ 
are switched at lines 40 to 50 before B$ is subtracted from A$, to ensure that the 
smaller number is subtracted from the larger one. A marker is set to indicate that 
the variables have been switched. 

For a detailed explanation of this routine, refer to step 3 of "Numeric String 
Subtraction" (page 203). 

Step 3: Divide A$ and B$ into two smaller segments, high and low. 

1800 X=LEN<fl*> :V=LENCE*> 

1002 IF X>V THEN F=X/2 GOTO 1006 

1004 F=V/2 

1006 IF F>INT<F> THEN F=INT';F> + 1 

1010 IF X<=F THEN flH=0:fiL=VflL <fl*> -GOTO 1040 

1020 flH= VOL < LEFT* <fl*.. X-F> > 

1030 AL=VRL<RIGHT*':fl*,F>> 

1040 IF V<=F THEN BH=0 • EL=VflLCB*> : GOTO 1O?0 

1050 BH=VfiL<LEFT*<B*,V-F.J> 

1060 BL=VflL<RIGHT*<B*,F>> 

Statements 1010 and 1040 compare the string lengths with the divider 
point F. F is determined at lines 1002 and 1006. These lines are identical to lines 
1 002 and 1 006 of the "Multiple Integer Addition" program (page 1 98). If the string 
is shorter than F, AH (or BH) is assigned a zero value, leaving AL (or BL) with the 
entire string as its value. If the string is longer than F it must be divided into high 
and low segments. AH is assigned the leftmost LEN(AH) minus F digits. 

A$ [T[2l3[4|5|6|7|8|9|0|lT2l 
B$ I5|7|9|4|3|5|7|2l 

AH HzH23456 [ AL |bi789012l 

BH |MMtf57| BL |fl943572[ 

Lines 1000 through 1060 are also similar to lines 1000 through 1060 of the 
"Multiple Integer Addition" program, which divides A$ and B$ into AH, AL, BH, 
and BL. Refer to step 2 of "Multiple Integer Addition" (page 199) for review and 
further explanation. 

Step 4: Calculate the differences for the high-order and low-order seg- 
ments. BL is subtracted from AL, and BH is subtracted from AH: 

AH |K123456| AL |tz(789012| 

-BH lfcWM57| -BL |ti943572 ] 

Before the segments are subtracted, the minuend and subtrahend must 
be compared. If the value of BL is larger than AL the difference is negative. 

This creates problems because a negative CL cannot be concatenated onto CH: 



CH |#xxxxxx| CL |-xxxxxx] = C [^xxxxxx-xxxxxx] Incorrect 



209 



Therefore we must borrow from AH to increase the value of AL so that the 
difference will be positive. Lines 1070 to 1090 borrow from AH and increase AL 
before BL is subtracted from AL: 

1670 IF f=lL>=EL THEN 1100 
1080 flL=flL+10tF 
1090 RH=flH-l 

If AL is larger than BL we bypass 1080 and 1090 and jump directly to the 
subtraction. But if BL is larger than AL we must borrow a one million value from 
AH to increase the value of AL: 

_1 ►- +1000000 

AH |xxxxx|x| AL | |xxxxxx| 

-BH |xxxxxx] -BL |xxxxxx| 

CH |xxxxxx[ CL |xxxxxx| 

A ten is added to the leftmost digit of AL. The easiest way to add the ten in 
the correct position is to raise 10 to the Fth power. 

AL=AL+10!F 

In our sample program, AL is smaller than BL, as tested in line 1070. 

AL| ti789012| <BL JIzi943572| 
Therefore we must borrow 1000000 (10TF-10T 6 = 1000000) from AH to 
increase the value of AL: 

10S0 flL=ftL+10tF 

AL=AL+10T6 
AL=AL+ 1000000 
AL= |789012| + 1000000 
AL=| 1 789012] 

After AL is increased, AH must be decremented by 1. since we borrowed 

from it. 

1090 flH=RH-i 

AH HK1 234561 -[jjfil 
AH= lti1 234551 

Once AH, AL, BH, and BL have been set up properly, the subtraction of the 
segments takes place. CL$ is the difference between AL and BL, and CH$ is the 
difference between AH and BH. 

Lines 1100 through 1102 determine CL$. Line 1000 changes the integer 

value of AL-BL into string form. 

.1130 cl*=str*<int<fil-el::o 

CL$=STR$(bS1 78901 2-0943572) 

CL$=STR$W845340) 

CL$=bS345540 
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Then, using the MID$ function at line 1 101, the leftmost character (a blank repre- 
senting a positive sign value) is truncated: 

1101 CL*=MID*<CL*,2,LEN<CL#>-1> 

CL$=MID$( |M|8|4|5|4|4|0| 2.6) 

CL$= |8|4|5|4|4|0| 

At 1 102, if the length of CL$ is shorter than F, zeros from ZEROS are con- 
catenated onto the front of CL$. You will need to add an assignment statement 
for a string of 0s for variable ZERO$; we have done so at line 1 5. In this case, the 
length of CL$ is equal to F, therefore no leading zeros are needed. 

1 5 ZERO$= " 00@0@80£i@00888@8 " 

i 1 92 CL*=LEFT*<ZERO*. F-LEhKCL*> >+CL-f 

CL$=LEFT$ (ZERO$.6-6)+CL$ 

CL$=LEFT$ (ZERO$,0)+CL$ 

Then, at line 1110, CH$ is assigned the string integer value of AH-BH: 
.1 1 .1 8 CH*=STR* < I HT < HH-EH .:■ > 
CH$=STR$(iz(1 23455-057) 
CH$=STR$(bS1 23398) 
CH$= |tf|1|2|3|3|9|5| 

Then, using the MID$ function, the leftmost blank character is truncated off: 

1111 CH*=M I D* < CHS- , 2 , LEH < CH* > - 1 > 
CH$=MID$( |bi|l|2|3|3|9|8| ,2,6) 
CH$= |1|2|3|3|9|8| 
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The subtraction routine looks like this: 



1070 IF fiL>=BL GOTO 1100 

78901 2 > =943572 ► False statement 

Program continues at next line 

10SO flL=fil_+10TF 

AL=7890 12+ 1000000 

AL=1789012 
1090 flH=flH-l 

AH=123456-1 

AHK1 23455 

1 1 00 CL*=STR* < I NT < fiL-BL > > 
CL$=STR$(fe(1 78901 2-bf943572) 
CL$=STR$(bS845540) 
CL$ H8|4|5l5|4|0| 

1101 CL*=r-1IB$o:.L$, 2, LEN'X'LSO-l > 
CL$=MID$( |5|8l4T5|5|4l0| .2,7-1) 
CL$=MID$( |gl8l4T5|5|4|0| ,2,6) 
CL$= |8|4|5|5|4|0| 

1102 CL*=LEFT*<ZERO*, F-LEN<CL*> >+CL* 
CL$=LEFT$(ZERO$.6-6)+CL$ 
CL$=LEFT$(ZERO$,0)+ |8|4l5l5T4!0l 
CL$= |8|4|5|5|4|0| 

1110 CH*=STR* < I NT < flH-BH > > 

CH$=STR$(bf1 23455-057) 

CH$=STR$(fel1 23398) 
CH$= |0HI2|3|3|9[8] 

1111 CH*=M I D* (. CH* .. 2 , LEN < OH* > - 1 .':■ 
CH$=MID$( |grn2|3|3|9|8| ,2,7-1) 
CH$=MID$( 1K|1|2|3|3|9|8| ,2.6) 
CH$= |1|2|3|3|9|8l 
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Step 5: Concatenate the answer strings, CH$ and CL$. together by 
numeric string concatenation. They are concatenated in statement 1120: 

1 1 20 C*=CH*+CL* 

C$=CH$ | | + CL$ | | 

C$= f I 

Only the rightmost "F" numbers from CL$ are concatenated to CH$ to avoid 
concatenating any leading blanks in CL$ (see the earlier "Numeric Strings" sec- 
tion for further discussion). 

Step 6: Truncate leading zeros in C$ before C$ is printed. Leading zeros 
are subtracted in the same way for Multiple Integer Subtraction as for Numeric 
String Subtraction (see step 5, "Numeric String Subtraction," page 205). Lines 
1 130 through 1 170 truncate leading zeros just prior to printing C$: 

1130 FOR 1=1 TO LEN<C*> 

1146 IF VflL<MID*<:C*, I, i::O=0 THEN L=L+1 

1158 IF VflL < LEFT* < C* , I > > OS THEN I =LEN C C* > 

1160 NEXT I 

1 1 70 C*=R I GHT* < C# , LEN < C* > -L > 

.1180 IF S=l THEN C*="-"+C* 

If A$ and B$ had been switched, S would have been set to 1, signaling a negative 
answer, and thus a negative sign would be concatenated to the front of C$ at 
1180. 

Step 7: Print the answer and clear out variable strings before allowing 
another problem to be input. 

J. 1 9B PR INT: pr int" ANSWER- " i C* : PR I NT 
1 2O0 fl*= " " ■ E*= " " : C*= " " ■ CH*= " " : CL*= " " 

1 205 flH=0 : flL=0 : BH=0 : EL=0 F=© : S=@ : X=0 ■' V=0 

1210 GOTO 20 
1220 END 
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The finished program appears as follows: 

i 6 PR I NT " rW**MULT I PLE I NTEGER SUBTRACT I ON*** " : PR I NT 

1 5 2ER0*= " 0000000800000000 " 

20 INPUT fi*,B* 

25 IF VflL < Fl*>= VflL <B*> THEN C*="0" : GOTO 1190 

30 IF VflL(.'fl*.':'>VflL<Bt> GOTO 1000 

40 Xt=fl* : fi*=B* = B*=X* 

50 S=l 

1 000 X=LEN < ft* > •• V=LEN < B* > 

1002 IF X>V THEN F=X/2 : GOTO 1006 

.1004 F=V/2 

1006 IF f>int>;f> THEN F=INT<F> + 1 

1010 IF X<=F THEN flH=0:flL=VflL<fl*> : GOTO 1040 

1020 RH^v'RL'XEFTf'Cfl*, X-F> .■' 

1 030 RL=VRL < R I GHT* < fl* , F > > 

1040 IF V<=F THEN B=0 : BL=VRL<B*> : GOTO 1070 

1058 BH= VflL < LEFT* < B* , V-F > > 

1 060 BL=VRL (. R I GHT* < B* , F > > 

1070 IF flL>=BL GOTO 1100 

1080 RL=RL+10TF 

.1090 RH=RH-1 

1100 CL*=STR* < I NT < RL-BL > > 

1101 CL*=M I D* < CL* , 2 , LEN < CL* > - 1 > 

1 102 CL*=LEFT*<ZERO*, F-LEN<XL*> >+CL* 

1110 CH*=STR* <: I NT < RH-BH > > 

1111 CH*=M I D* < CH* .. 2 , LEN < CH* > - 1 > 
1120 C*=CH*+CL* 

1130 FOR 1=1 TO LEN<C*> 

1 1 40 IF VflL < M I D* < C* ,1,1 > > =0 THEN L=L+ 1 

1150 IF VflL < LEFT* ■:.' C* , I > > OS THEN I =LEH < C* > 

1168 NEXT I 

1 1 70 C*=R I GHT* < C* , LEN C C* > -L > 

1130 IF 3=1 THEN C*="-"+C* 

1130 PRINT :PRINT"RNSWER= "iC*- PRINT 

1 200 fl*= " " ; B*= " " ; C*= " " •■ CH*= " " - CL*= " " 

1 285 RH=0 : RL=0 •■ BH=0 ■ BL=0 : F=0 : 3=0 : X=0 ■ V=0 

.1210 GOTO 20 

1220 END 

***MULTIPLE INTEGER SUBTRflCTION*** 

? 1234567898 12 
7257943572 

flNSWER= 12339S845440 

? 1 2345678901 23456 
??57943572 

RNSWER= 1234567832179884 

79999999999999999 
?? 1234567890 

RNSWER= 9999998765432109 
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You now know two methods of subtraction. The first method used numeric 
strings. The second uses multiple integer math. By comparing their outputs, you 
can see that both methods work equally well at getting around the 9-digit length 
limit. You, the programmer, may now choose the method which most specifically 
meets your needs. 

MULTIPLICATION 

The PET's 9-digit length limit may be easily exceeded because a product 
may be very large even when the multiplier and multiplicand are small. This 
numeric length limit prohibits products longer than nine digits from being printed 
without exponential notation. You can get around this limitation by writing a pro- 
gram that print products larger than nine digits of precision. Printing products ex- 
ceeding nine digits without exponential notation is most easily done using multi- 
ple integer multiplication. The following program and discussion will enable 
you to print out products up to 16 digits in length without exponential nota- 
tion. 

Multiple Integer Multiplication 

Using virtually the same steps as multiple integer addition and subtraction, 
multiple integer multiplication separates the multiplicand and multiplier into 
smaller segments, multiplies all segments, and adds the multiple products 
together into one final product, ranging from 1 to 16 digits in length. 

The steps for multiple integer multiplication are as follows: 

1. Input the multiplicand and the multiplier as two positive numeric 
strings. 

2. Divide the strings into segments: high and low. 

3. Multiply the corresponding segments. 

4. Add the segment products to create one product string. Truncate any 
leading zeros. 

5. Print the product string. 

The listing of the sample program is shown at the end of this section. 

Step 1 : Input the multiplicand and the multiplier as two positive 
numeric strings, where A$ is the multiplicand and B$ is the multiplier. As with 
the other math programs, the numbers are input as strings to avoid the 9-digit 
length limit. However, the input numbers are limited somewhat by the program 
supplied here. 

This program limits the length of the product to 16 digits. Since the 
maximum product length equals the sum of the lengths of the multiplicand 
and multiplier, the sum of the lengths of the input numbers cannot exceed 
16. To change the program to accept larger numbers requires several alterations 
in the program which will not be discussed, but which you should be able to do 
yourself. 
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(length of A$)+(length of B$)<16 

Examples: 12 + 4 <16 

2+3 <16 

8+8 <16 



The example program will multiply two input numbers with equal lengths of 
eight digits: 99999999 and 99999999. to give us a 16-digit product. 



99999999^- 8 digits 

x99999999~ + 8 digits 



9999999800000001^- 16 digits 

Input the multiplier and multiplicand as two positive numeric strings. A$ 

and B$: 

10 PRINT 'T»**MULTIPLE INTEGER MULTIPLICATION***" : PRINT 
26 INPUT A*,B* 

RUN 

***MULTIPLE INTEGER MULTIPLICATION*** 

799999999 
7799999999 

Step 2: Separate both input strings into two segments:high (M) for the 

leftmost digits and low (L) for the rightmost digits. The dividing point, variable F, 
tells the PET where to divide A$ and B$ into segments. The value of F is set at 
lines 1002 and 1006 (for explanation refer to "Multiple Integer Addition," page 
198). 

i 000 X=LEN <.' A* > : V=LEN < B* > 

X=8 Y=8 

1002 IF X>V THEN F=X/2 = GOTO 1088 
1004 F=V/2 

F=8/2 
F=4 

1006 IF F>INTCF:)THEN F=INT<F!> + 1 

Once F is set, the program divides the numbers into high and low segments. 
This routine was presented in the "Multiple Integer Addition" program (see page 
199). Lines 1010 through 1060 divide the two strings into high and low seg- 
ments. 

1010 if x<=f then ah=0:al=val<a*> = goto 1040 

1020 ah=val<left*<a*,x-f>> 

1030 al=val<right*<:a*,f:>> 

1048 if v<=f then bh=0 = bl=val<b*> : goto 1870 

1058 BH=VflLCLEFT*<B*,V-F>> 
1060 BL=VAL<RIGHT*<B*.F>> 
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The routine above divides A$ into AH and AL (4 digits) and B$ into BH and 
BL (4 digits): 



A$ |9[9|9|9|9|9|9|9| 

/ \ 

AH |9|9|9|9| AL |9|9|9|9| 



B$ |9|9|9|9|9|9|9|9l 



BH9999 



BL |9|9|9|9| 



Step 3: Multiply AH, AL, BH, and BL into four product strings: P1$, 
P2$, P3$, and P4$. The rules of algebraic multiplication multiply each variable as 
if it were a single number. A$ and B$ are multiplied as follows: 

M [AL] 

xfBHl IbD 



Think of A$ and B$ as two sets of 4-digit numbers (H and L) joined in the middle, 
and not as eight individual digits: A$ is not eight 9s. but two sets of four 9s each. 
Thus AL and BL are multiplied as: 

AL j9999| 



XBL |9999| 
Multiplying A$ and B$ is a four-step process. To begin, multiply BL x AL: 

|AHl (ALk 

|bh| [blK 

and then BL x AH: 

[ah] [al| 

[I^llBLl 

Next, move over to BH and multiply BH by AL: 

IaRI JaLI 
\bh\W\ 
and finally BH x AH: 

Jah| TaTI 
NbhI [bl] 

When the PET multiplies BL x AL, etc.. it internally multiplies the values of 
BL and AL. Consequently, the 4-digit values of BL and AL are multiplied together, 
producing the 8-digit product P1. Below is the four-step process: 



[AHl [ALK |aHL [All 



,[AL]^[AH] |Ap 



|AH| |AL| X |AH| |AL| |AH| |AL| ^[AHJ [Ay 

: [BFT1 [bl[ x[bh1 IblI x[BHT [blI S[bh1 HO 



P1$ 



_P1$_ 

P2$ 



P1$ 
P2$ 
P3$ 



P1$ 
P2$ 
P3$ 
P4$ 
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Let's look step by step at how the multiplication works, using the values of 
AH. AL, BH. and BL from our example: 

AH |t<9999| AL. 1099991 

BH HHHl BL |t(9999| 

The first multiplication is BL x AL; 

[AH] 109995 



x HH1 ^999i 



89991 
89991 
89991 
89991 



i§K 



99980001 
The second multiplication is BL x AH, as shown in the diagram below: 



AH [9999V FAT 



~BTT~l BL i 9999I 

99980001 
999800010000 



Notice that P2 is not directly beneath P1, but four spaces to the left (recall 
the rules for lining up the products of 2-digit multiplication problems). To con- 
tinue in the same manner, the third multiplication should be as follows: 



rAHl AL [99991 
BH [9999l r"BL~l 

999800010000 

The fourth and final multiplication should be as follows: 



AH 1 9999 k I AL 



BH [9999K I BL I 
9998000100000000 



Remember that only the values of the four segments are multiplied; 
this means that the actual multiplication done by AL x BH, etc. yields the 
same number, 99980001, for all four products. So, in the program the pro- 
ducts are aligned by converting the products into strings and concatenating 
the necessary number of zeros onto the end of the strings to align them pro- 
perly. This occurs in statements 1070 through 1100. 



1870 Pl*=STR*<BL*fiL> 
1080 P2*=STR*<BL*ftH>+F* 
1090 P3*=STR*<BH*ftL)+F* 
1 1 00 P4*=STR* < BH#FIH > +F*+F* 
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Without the zeros to hold the positions, the answers would be aligned incorrectly 
as: 

P1 199980001 1 

P2 1999800011 Incorrect 



P3 99980001 



P4, 99980001 



instead of: 



99980001^ 



199980001 0000 



|99980001| 0000 Correct 
199980001 1 00000000 

The number of zeros to be concatenated onto the end of the product strings 
is assigned to F$. The constant variable "F" is set to the dividing number, in this 
example F = 4. F$ is assigned the leftmost "F" zeros in ZERO$. 

40 ZERO* = " 0000000000000000 " 

1008 F$=LEFT*<ZERO*,F> 

F$=LEFT$(ZERO$,4) 

F$= |pToToTo|0|0|0|0|0|0|Q| 

F$="0000" 

When P1$, P2$, P3$, and P4$ are calculated (lines 1070 through 1 100), the cor- 
rect number of zeros are simultaneously concatenated to the end of the string to 
align the products correctly. The products are now aligned and ready to be added: 

AH |bi|9|9|9|9| AL |b([9|9|9|9l 
x BH |ti(|9|9|9|9| BL j tzi]9i 9| 9| 9 1 
1999800011 P1 
199980001 00"00] P2 
19998000100001 P3 
|9998000 1000000001 P4 
F$ F$ 
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At the end of step 3, the program looks like this: 

20 INPUT A*>B* Input values for A$, B$ 

30 IF VAL<A*>=0 OR VAL<B*>=0 THEN \ If multiplicand or 

C*="0" : GOTO 1190 ( multiplier =0 then 

40 ZERO*=" 0000000000000000" ' answer (C$) = 

1 000 X=LEN <B*>- V=LEN < B* > 

1002 IF X>V THEN F=X/2 : GOTO 100S Uet divider point. F 

1004 F=V/2 

1006 if f>int<f>then f=int(f>+1 
1008 f*=left*<2erq*,f:> 

1010 IF X<=F THEN flH=0:flL=VfiL<f=l*> : GOTO 1040 1 

1 020 AH=VAL (. LEFT* < A* , X-F > > I D ivide A$ and B$ 

1030 AL=VAL<RIGHT*<A*,F>:> > into parts: 

1040 IF V<=F THEN BH=0 :BL=VAL<B*> : GOTO 10?0| high and low 

1050 BH=VAL<LEFT*<B*,V-F>> 

1060 BL=VAL<RIGHT*<B*,F>:> 

1070 P1*=STR*<BL*AL> 

1080 P2*=STR*<BL*AH>+F* 

1090 P3*=STR*<BH*AL>+F* 

1 1 00 P4*=STR* < BH*AH > +F*+F* 



Multiply A$ and B$ 
and align products 



Step 4: Add the four products together. This is the most complicated part 
of the "Multiple Integer Multiplication" program because parameters are passed 
back and forth from the main program to an addition subroutine. We will use a 
portion of the "Addition via Numeric Strings" program as a subroutine to add the 
products together (page 1 90). Below is the portion of the addition program we will 
convert into a subroutine: 

2000 REM**ADD PRODUCTS** 

2010 BLANK*=" 

2020 X=LEN<A*> :V=LENCB*> 

2030 IF X<V THEN A*=LEFT* < BLANK*. V-X>+A* 

2040 IF X>V THEN B*=LEFT*< BLANK*.. X-V>+B* 

2050 D=0:N=1 :C*="" 

2060 FOR I=LEN<A*> TO 1 STEP-1 

2070 A=VAL < M I D* < A* , I .. 1 > > 

2080 fl=A+DD=0 

2090 B=VAL<MID*<B*. 1,1. ■>> 

2100 C=A+B 

2110 IF C>=10 THEN D=l 

2120 IF D=l AND 1=1 THEN N=2 

2130 C*=RIGHT*<STR*<C>,N>+C* 

2140 NEXT I 

At line 1 1 10 the contents of P1$ and P2$ are passed to the parameters A$ 
and B$, which are used in the addition subroutine (lines 2000 to 2140). 

1110 A*=P1* : B*=P2* 

A$ |9l9l9|8|0|0|0Hl 

B$ I9l9l9l8l0l0|0|1|0|0|0|0| 
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(Notice that the contents of A$ and B$ are not the same as those input at line 20. 
The same variable names are used to allow program compatibility between all 
four math programs.) Only two parameters are passed at a time because the addi- 
tion subroutine adds only two numbers at a time. After P1$ and P2$ are added, 
the addition subroutine will be called again to add the contents of P3$ and P4$. 

Within the subroutine, the variable C will be assigned the sum of A$ + B$ 
and converted into C$. 

Once the values for P1$ and P2$ are passed to A$ and B$ the addition 
subroutine is called: 

1 1 26 GOSUB £000 
A$ and B$ are right-justified and equated in length for addition by adding blanks 
from BLANKS to the shorter string (if there is one) in lines 2010-2040: 

2010 BLflNK*=" 

2020 X=LEN<A*>:V=LEN<B*> 

2030 IF X<V THEN fi*=l_EFT*< BLANK*. V-Xi+A* 

2040 IF X>V THEN B*=LEFT* < BLANK*, X-V>+B* 

Statements 2050 to 2140 add the corresponding digits of A$ and B$ and 
convert the sum C into the numeric string C$. (A full explanation of this process is 
offered in the "Addition via Numeric Strings" section, page 191.) 

2050 D=0N=1 C*="" 

2060 FOR I==LEN<A*> TO 1 STEP-1 

2070 A=VAL<MIB*<A*,I,1>> 

2880 A=A+D : D=0 

2090 B=VAL<MID*<B*, 1 , 1 > > 

2100 C=A+B 

2110 IF C>=10 THEN D=l 

2120 IF B=l AND 1=1 THEN N=2 

2130 C*=RIGHT*<STR*<C>,N>+C* 

2140 NEXT I 

The sum, C$, is passed through a FOR . . . NEXT loop to truncate any leading 
blanks or zeros at lines 3000 to 3060. This truncation routine is from "Subtraction 
via Numeric Strings" (page 205). 

3000 REM***TRUNCATE LEAH 2ER0S*** 

3001 L=0 

3010 FOR 1=1 TO LEN<C*> 

3020 IF VAL<MID*<C#,I,1>>=0 THEN L=L+1 

3030 IF VAL<LEFT*<C*,I>><>0 THEN I=LENCC*> 

3040 NEXT I 

3050 C*=RIGHT*<C*,LEN<C*>-L> 

3060 RETURN 

C$, the sum of P1$ and P2$, is returned to the main program and converted 
to M1$: 

1130 M1*=C* 

The contents of C$ must be transferred to M1$ because C$ must be cleared 
before the addition subroutine is called again at line 1150 to add P3$ and P4$. 
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To add P3$ and P4$ together, the values of P3$ and P4$ are passed to the 
parameters A$ and B$ before calling the addition subroutine 2000: 

1132 Fi*=P3* ■ B*=P4* = GOSUB £600 
A$ |9|9|9|8|0|0|0|0|0|0|0|0| 

B$ I9l9l9|8|0|0|0|1|0l0|0|0|0|0|0|0| 

The addition subroutine adds the corresponding digits of P3$ and P4$, truncates 
any leading zeros, and returns sum C$ to the main program, where C$ is con- 
verted to M2$: 

1135 M2*=C* 
At this point, M1$ is the sum of P1$ and P2$, and M2$ is the sum of P3$ 
and P4$. To get the sum of all four products, M1$ and M2$ must be added 
together: 

[AH] [AL| 

x rjR] no 



+ l P2$ 



+ | P3$ 
+ [ P4$ 



|mi$1 

+ [M2$] 



rcn 



The addition subroutine is called a third time to add M1$ and M2$ together 
to get the final answer, C$. 

1140 fl*=Ml*:B*=M2* 

A$ l9l9l9|8|9|9|9|9|0T0l0ni 

B$ |9l9|9|8|9|9|9|9l0l0|0|1|0|0|0|0| 

1150 GOSUB 2000 
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Step 5: After the third return from the addition subroutine, C$ equals the 
sum of all four products. Step 5 prints the answer. Then return to the input state- 
ment to solve another multiplication problem. 

i 1 90 PR I NT : PR I NT " fiNSWER= " i C* : PR I NT : GOTO 29 
1200 END 

The flow of the program looks like this: 



Stepl 



30 
40 
50 

'1000 
1010 
1020 
Step 2 < 1030 
1040 
1050 

J 060 

1070 
1080 
1090 
1100 

1110 



Step 3 ■ 



Step 4- 



10 PRINT" ***MULTIPLE INTEGER MULTIPLICATION***" 

20 

Input multiplier and multiplicand. 

initialize variables 



Calculate F. divide the multiplier, multiplicand 
into high and low segments 



Multiply segments into four products 
into (our products Pl$. P2$. P3$. P4$ 



Pass P 1 $ + P2$ to parameters A$, B$ 



1120 GOSUB2000 



1 1 30 Pass contents of C$ — M1$ 

1 140 Pass P3$ + P4$ to parameters A$. B$ 

1 150 GOSUB 2000 



■ 2000-2140 addition subroutine; 
add Pi$ + P2$ — C$ 
3000-3060 truncate -leading zeros 



2000-2140 addition subroutine 

add P3$ + P4$ — C$ 
3000-3060 truncate leading zeros 



1 1 60 Pass contents of C$ -*M2$ 

1 170 Pass M1$ + M2$ to parameters A$. B$ 

1 180 GOSUB 2000 



Step 5 



{s 



2000-2140 addition subroutine; 

add M1$ + M2$ — C$ 
3000-3060 truncate leading zeros 



90 Prints~C$ 
200 END 
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Following is the listing and sample run of the program: 



10 PRINT":***MULTIPLE INTEGER MULTIPLICATION***" : PRINT 

29 INPUT A*,B* 

30 IF VAL<A*>=0 OR VAL<B*>=0 THEN C*="0":GOTO 1130 

40 ZERO*=" 0000000000000000" 

1 000 X=LEN < A* > : V=LEN < B* > 

1002 IF X>V THEN F=X/2 = GOTO 1008 

1004 F=V/2 

1006 IF F>INT<F>THEN F=INT<F>+1 

1008 F*=LEFT*<ZERO*,F> 

1010 IF X<=F THEN AH=0: AL=VAL<A*> : GOTO 1040 

1020 AH=VAL<LEFT*<A*,X-F>> 

1030 fiL=VflL<RIGHT*-Cfi*,F>) 

1040 IF V<=F THEN BH=0:BL=VAL<B*> = GOTO 1070 

1 050 BH= VAL < LEFT* < B* , V-F > > 

1060 BL=VAL<RIGHT*<B*,F;>> 

1070 P1*=STR*<BL*AL> 

1080 P2*=STR*<BL*AH>+F* 

1090 F3*=STR*<BH*AL:>+F* 

1 1 00 P4*=STR* < BH*flH > +F*+F* 

1110 A*=P1*B*=P2* 

1120 GOSUB 2000 

1130 M1*=C* 

1132 A*=P3* = B*=P4* : GOSUB 2000 

1135 M2*=C* 

1140 A*=M1*:B*=M2* 

1150 GOSUB 2000 

1190 PR I NT = PR I NT " ANSWER- " ;C*: PR I NT •• GOTO 20 

1200 END 

2060 REM**ADB PRODUCTS** 

2010 BLANK*=" 

2020 X=LEN < A* > ■ V=LEN < B* ) 

2030 IF X<V THEN A*=LEFT* < BLANK*, V-X>+fl* 

2040 IF X>V THEN B*=LEFT* < BLANK*, X-VJ+B* 

2050 D=0:N=1 :C*="" 

2060 FOR I=LEN<A*> TO 1 STEP-1 

2070 A= VAL < M I D* < fl* , I .■ 1 > > 

2030 R=R+DD=0 

2090 E-VAL < M I D* < B* , 1 , 1 > > 

2100 C=A+B 

2110 IF C>=10 THEN D=l 

2120 IF D=l AND 1=1 THEN N=2 

2130 c*=right*<:str*<:c:>,n>+c* 

2140 NEXT I 

3000 REM***TRUNCATE LEAD ZEROS*** 

3001 L=0 

3010 FOR 1 = 1 TO LEN<C*:> 

3020 IF VAHMID*<C*,I,1>)=0 THEN L=L+1 

3030 IF VAL < LEFT* '>C*, I))O0 THEN I=LEN<C*> 

3040 NEXT I 

3050 C*=R I GHT* < C* , LEN < C* > -L ) 

3060 RETURN 
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*** MULTIPLE INTEGER MULTIPLICATION*!** 

799999999 
7799999999 

flNSWER= 9999999860000001 



GRAPHICS 



The PET graphic character set consists of 64 graphic symbols. Graphics 
are available on all PET models. On the CBM, select graphics by issuing a 
POKE 59468,12. 

The graphic characters are all located in the upper case positions on the 
keys, so they must be entered in shifted mode. On the full size keyboard, the 
SHIFT LOCK key may be engaged to remain in "graphic mode" until you release 
the SHIFT LOCK. 

Graphic symbols are entered onto the screen in either calculator mode or 
program mode. 

Many graphic characters are referenced and illustrated on the following 
pages. Refer to Table 2-2 for easy reference to graphic character keys, names, and 
symbols. 



GRAPHICS IN CALCULATOR MODE 

Sketching in calculator, or immediate, mode requires no line numbers, 
no PRINT statements, and no quotation marks. In calculator mode, the cursor 
may be moved freely up, down, right, or left to any spot on the screen without 
pressing the RETURN key after each directional change. Below is an example of a 
square drawn in calculator mode. Starting with the cursor in home position, the 
square was drawn left to right, top to bottom, right to left, and bottom to top, in 
one continuous movement. No line numbers, program statements, or line returns 
were needed. 



7 spaces 





7 


spaces 
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We will use the square shown above as the basic graphic design to illustrate 
elementary graphics. Though simple in its design, sketching this square involves 
the major techniques used in graphic drawing on the PET. 

Drawing a square on the PET is more complex than it may first appear. The 
eight graphic keys and three cursor movements which are used to draw the four 
thin lines and four corners of the square are shaded in the diagram below: 




Draw the Square 

There are nine steps to drawing the seven-space square discussed above. 
Let us now draw the square, step by step. 

Stepl: HOME the cursor. The top left corner of the HOME position space 
should be the top left corner of the square (Figure 5- 3a) . 

Step 2: Type the upper left corner of the square. This is done by using the 
TOP LEFT CORNER D (Figure 5- 3b) . 

Step 3: Draw the top line of the square. Because we will use a CORNER 
key for the top right corner, type five TOP LINE HORIZONTAL □ in this 
step (Figure 5- 3c) . 

Step 4: Type the upper right corner of the square using the TOP RIGHT 
CORNER □ (Figure 5- 3d) . 

Step 5: Draw the vertical right side of the square. To allow space for the 
CORNER key, type five RIGHT LINE VERTICAL □ . 

We all know what this part of the square should look like, but does your 
screen look like this instead? 

I 1 II I I I 
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If so. this happened because the cursor is automatically moved one space to the 
right after any character is printed. To enter characters vertically, the cursor must 
be repositioned both vertically and horizontally to compensate for the automatic 
cursor movement to the right. 

To print the vertical line of the square, then, repeat the sequence of CURSOR 
DOWN 3 , CURSOR LEFT E , and RIGHT LINE VERTICAL □ . Do this five 
times, and you should have printed the right side of the square (Figure 5-3e). 



r 



Step 6: Type the bottom right corner of the square using the BOTTOM 
RIGHT CORNER □ . Before you type this, look to see where your cursor is; if 
you haven't already done so, use CURSOR DOWN and CURSOR 
L E FT |c] to position the cursor at the corner of the square; then press the cor- 
ner key (Figure 5-3f) . 

Step 7: Draw the bottom line. Because we are using CORNER keys, we 
need just five BOTTOM LINE HORIZONTAL □ (Figure 5-3g) . 

One method is to enter the line from right to left. After each character entry 
on the bottom line, two CURSOR LEFT @ movements will be needed to correctly 
position the cursor for the next entry. 



1st entry here 



r 



2nd entry here 



A second, and possibly more natural, method of drawing the bottom line is 
from left to right. To do this, position the cursor to the leftmost space of the bot- 
tom line (one space to the right of the left edge of the screen); this can be done 
using six CURSOR LEFT @ . You can then easily enter five BOTTOM LINE 
HORIZONTAL D to create the bottom line of the square. 
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Step 8: Type the bottom left corner. Depending on which method you used 
to enter the bottom line, you will need to use CURSOR LEFT S two times 
(method 1) or six times (method 2) to position the cursor at the bottom left cor- 
ner, then use BOTTOM LEFT CORNER □ to complete this step (Fiqure 5- 
3h). 

Step 9: Complete the square by drawing the left vertical side. You should 
be able to type five LEFT LINE VERTICAL □ to complete the square (Figure 
5-3i). You will need to position the cursor before each entry, using CURSOR 
L E FT El and CURSOR UP El 



a. HOME cursor 



b. Upper left comer 



c. Top side 



d. Upper right corner e. Right side 



f. Bottom right corner 



Bottom side 




h. Bottom left corner i. Left side 




S§ denotes position of cursor at the completion of the step 



Figure 5-3. Draw the Square 
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PROGRAMMING GRAPHICS 

Any graphics sketched by you directly onto the screen will be instantly lost 
when you execute a NEW statement or turn the power off unless you first convert 
the graphics into a program. You can convert any design sketched onto the 
screen into a program simply by making each line on the screen a string 
which is to be printed as part of a program. 

After you have sketched the square, move the cursor to the HOME position. 
Do not press CLEAR or RETURN. If you press CLEAR you will lose your picture 
forever. If you press RETURN, "READY." will be written through the middle of the 
square as shown below: 

















R 


F 


A 


D 


Y 













































































Or, if you had made your square so large that the horizontal lines of the square 
were printed on the top and bottom rows of the screen, and the cursor was posi- 
tioned on the bottom line, a RETURN would cause the display to roll up one line in 
order to write the READY message on the next line, losing the top of the picture. 

After RETURN 



Before RETURN 






For this reason, pictures larger than 39 characters wide or 24 characters long 
should never be drawn in calculator mode. 

Once the cursor is HOMEd, the next step is to move each line of the picture 
to the right in order to insert line numbers, question marks (shorthand for PRINT) 
and quotes. This converts each line from calculator to program mode so it may be 
saved on a tape file. 

When the cursor has been HOMEd, it should be at the upper left corner of 
the square (Figure 5-4a). Key INSERT five times so that the top line of the square is 
shifted five spaces to the right (Figure 5-4b). Now there is enough room to type a 
line number (100), a ?, and opening string quotes (Figure 5-4c). Then press 
RETURN (Figure 5-4d). The top line of the square is now a programmed statement. 
Continue doing this for each line, incrementing each line number by one hundred 
until the entire square has been converted into program statements (Figure 5-4e- 
f). 
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a. HOME cursor 



b. INSERT five spaces 




r 



c. Complete program statement 
10 0? "p" 



d. Key RETURN 



1 00 ?'T 



e. Insert five spaces 
10O?T 



f. Complete program statement; key RETURN 

r 



10 0? 
2 0? 



M denotes position of cursor at the completion of the step 



Figure 5-4. Make Program Statement from Graphics 

Be sure to number the lines in sequential order to avoid distorting the 
picture. Also, you do not need to move the cursor past the graphics to insert a 
second set of quotation marks at the end of each line. After the first set of 
quotes is typed, merely key RETURN. Your final program listing should appear as 
follows: 



iee PR I NT n r 
200 PR I NT "I 
300 PRINT"! 
400 PR I NT "I 
500 PR I NT "I 
60S PR I NT "I 
700 PR I NT "L 
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Program Mode 

Instead of creating graphics in calculator mode and converting it to a pro- 
gram in program mode, you can skip calculator mode completely. To draw the 
picture in program mode, each line of the picture is typed individually, with the 
line number, PRINT statement, and quotation marks typed in before the line of the 
picture. 

100 ?"| I 

200 ?"l l 

300 ?"l l 

The space directly to the right of the quotation marks becomes column number 1 
on the screen. If you do not program with this in mind, your picture may end up 
towards the left-hand side of the screen. 

If you program a PRINT string of exactly 40 characters in length, you 
must include a second set of quotes and a semicolon at the end of the line. If 
you do not include the semicolon, an extra line will be printed in your display due 
to the cursor's automatic positioning to the next line after printing in column 40. 

SUMMARY 

Let us briefly review the drawing and programming of a graphics picture. 
Graphic symbols are printed only when the keyboard is in shifted mode. 
Graphic symbols are printed in either calculator or program mode. To pro- 
gram the picture, two methods are available: 

1. Sketch the picture in calculator mode. Move the picture towards the 
right side of the screen. Add the line number, PRINT statement, and 
quotes to the left of each pictorial line to program statements. 

2. In program mode, type one line at a time with the line number, PRINT 
statement, and quotes to the left of each picture segment. 

A hint before moving to the next aspect of graphics. It is advisable to draw 
your picture or diagram on a piece of paper before drawing it on the screen. Map 
out on a piece of graph paper an area 40 squares wide by 25 squares long, using 
one square on paper for each space on the PET screen. Then draw your picture on 
the paper. Be sure to include space for the line numbers if you are going to con- 
vert the picture to program mode. Once everything is ready, type the program 
from the paper onto the screen. 
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ANIMATION 

Animation on the PET is done in program mode. Any graph, number, 
design, word, or picture may be programmed to move sideways, up, down, or 
diagonally, flash on and off, print faster or slower, in almost any combination. 

Animation is a capability that distinguishes the PET from many other computers, 
and it will probably be the most fun aspect for you. 

To demonstrate animation, we will begin by animating the sketching of the 
small square programmed in the previous section (see page 5-95 for final listing). 
Instead of seeing the square appear instantaneously on the screen, animation 
will allow the viewer to watch each element of the square slowly appear on 
the screen. 

The program to animate the square looks very different from the previous 
program because the line segments are programmed in BASIC code and not as 
picture segments. There is no large square within quotation marks. The square is 
broken down into individual graphic characters. 

TIME DELAY 

The purpose of the animated program is to slowly move the cursor so 
we can see the lines of the square being printed clockwise from the top left 
corner of the screen. 




The first step, as always, is to clear the screen. This also puts the cursor in 
the home position. 

5 PR I NT "IT'; 

The second step is to type the top left corner. However, do not draw the 
whole top line as you did in the previous program, just the corner. 

18 PRINT"!"-"; 
In order to see each element of the square being printed, it is necessary 
to slow down the normal PET print speed. This can be done by using a time 
delay loop, similar to this statement 100: 

100 FOR J=l TO 10: NEXT J : RETURN 

The FOR. ..NEXT loop increases the time between the printing of each character. It 
forces the PET to count from 1 to 10 each time the subroutine is called. While the 
PET is counting it cannot execute other statements or print, thus it is delayed from 
printing the next character and its print speed appears slower. The TO index for J 
can be increased or decreased to lengthen or shorten the delay. The larger the TO 
index for J is set, the longer the time between printing each character. 
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For our animation program, then, we must include this time delay loop after 
printing the next element. Since the programmed time delay loop remains the 
same for each element, we call it as a subroutine. Therefore, after printing the up- 
per left corner of the square, call the time delay loop, subroutine 100. 

PROGRAMMING CHARACTER PLACEMENT 

The third phase is to print the top line of the square. Instead of programming 
PRINT we will use a FOR.. .NEXT loop: 

15 FOR 1 = 1 TO 5 ■•PRINT" - "; GOSUB 1 00 ■ NEXT I 

Statement 15 uses a FOR.. .NEXT loop so that the subroutine time delay can be 
called between each printing of """. To program the PET to sketch the square 
slowly, the time delay must be called after each character is printed. It would be 
useless to program: 

15 PRINT" ";: GOSUB 1O0- — incorrect 

because the whole line would be printed instantaneously without any time delay. 
To complete the top line, type the upper right corner. Again, include the 
time delay subroutine call. 

20 PRINT" - )"; GOSUB 100 
So far, the program looks like this: 

5 PR I NT "."J"; 

10 PR I NT 'T"; : GOSUB 100 

15 FOR 1=1 TO 5 = PRINT"-" ;= GOSUB 100: NEXT I 

20 PRINT" - !"; = GOSUB 100 

100 FOR J=l TO 10: NEXT J = RETURN 

Run the program. You should see the following progression appear on the 
screen: 

r 



Hopefully, this is what you saw. If not, go back and find out what went wrong. Did 
you forget the semicolons after each PRINT statement? 

End all PRINT statements in this program with a semicolon; the semicolon 
concatenates graphic strings together when printed. This allows the " r " and 
the top line " " to be concatenated together on the same line: 



233 



Without the semicolons, the PET performs a carriage return after each statement 
and the top line will look like this: 

r 



The other three sides are drawn in a sequence similar to lines 10 and 15. 
Line 20 begins the next sequence, then converts the linear segment to 
FOR. ..NEXT/PRINT statements, calling the time delay subroutine in that PRINT 
loop. Don't forget to include the cursor controls to compensate for the automatic 
right cursor movement inside the FOR. ..NEXT loops for the vertical sides of the 
square: 

PRINT" ««" right side PRINKRIGHT LINE VERT. XCURSOR L. > 

<CURSOR DOWN> 
PR INT" -111" bottom PRINT <BOTTOM LINE HORIZ.XCURSOR L.> 

<CURSOR L. > 
PRINT"! in" leftside PRINT <LEFT LINE VERT. XCURSOR L. > 

<CURSOR UP> 

The program listing looks like this: 

5 PRINT"."]"; 

1@ PR I NT" T"; :GOSUB 108 

15 FOR I = 1 TO 5 = PR I NT " - " ; : GOSUE 1 00 : NEXT I 

28 PR I NT "T'.: GOSUE 100 

25 FOR I = 1 TO 5 ■ PR I NT " MS" ; : GOSUE 1 ©0 : NEXT I 

30 PR I NT "J"; : GOSUE 100 

35 FOR 1 = 1 TO 5PRINT"_Mr; : GOSUE 100: NEXT I 

40 PRINT"!.".; GOSUE 10© 

45 FOR I = 1T0 5 ^ PRINT"! in"; : GOSUE 100: NEXT I 

5© END 

100 FOR J=l TO 10: NEXT J : RETURN 

Now, try a trial run. Does your square look like this? 

I 

READY. 



L I 



If this design appeared instead of a perfect square, some of the cursor controls 
were left out. The PET did exactly what it was programmed to do, so where is the 
problem? Take a closer look at the program. We included cursor controls within 
the FOR. ..NEXT loops for all four sides of the square. Now look at the screen. The 
problem is not with the sides. The problem, therefore, must be in the corners. 
Look at statements 20, 30, and 40. We forgot the cursor controls after each corner 
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position. Make the proper changes, and the program should look like this: 



GOSUB 1S0: NEXT I 



5 PR I NT "IT; 

10 PRINT'T".; :GOSUB 100 

15 FOR 1=1 TO 5 •PRINT" - " J 

20 PRINT'^M"; : GOSUB 100 

£5 FOR 1 = 1 TO 5: PRINT" IW" .: : GOSUB 100: NEXT I 

36 PRINT"Jil"v = GOSUB 100 

35 FOR 1=1 TO 5:PRINT"_J1I"; :GOSUB 100:NEXT I 

40 PRINT"Lin"; : GOSUB 100 

45 FOR 1 = 1 TO 5 : PRINT"! in"; : GOSUB 100:NEXT I 

50 END 

10© FOR J=l TO 10: NEXT J = RETURN 

Now try another trial run. Your picture should look like this: 



READY. 

m 

I 
I 
I 



You should have been able to watch the PET slowly sketch the square on 
the screen in a clockwise direction. Remember, you may change the print speed 
by changing the TO index value for variable J in the time delay loop. 

One last problem: How to avoid destroying the square with the READY 
message. 

When drawing the square is completed, the cursor is on line 2; when the 
programs ends, the READY message is printed on the next line, which happens to 
be within the square. Therefore, before ending the program, you must compen- 
sate for this by moving the cursor below the square; the READY message will be 
written underneath the square and not across it. This is done by printing several 
CURSOR DOWNs before the END statement. 
50 PR I NT " M«MM«W«" = END 

This will move the cursor down below the square and the square will not be 
destroyed: 




REflDV. 
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Enlarging the Square 

Let's take the small square we just animated and enlarge it so that it forms a 
boundary one space from the perimeter of the screen: 







The PET screen is 40 spaces wide by 25 spaces long. If the rectangle's sides are to 
be one space from the perimeter, then the square should be 38 spaces wide by 23 
spaces long: 

38 
23 



40-2 (1 space for each side) 
25-2 (1 space for each side) 



With just a few changes to the animated small square program we can draw 
the larger rectangle to form the screen boundary. FOR. ..NEXT loops were used in 
the previous animation program to print a string of graphics for each side, FOR 
1-1 to 5. To enlarge the square, change the value of the TO index to 35 for the 
horizontal sides and 21 for the vertical sides, leaving spaces for the corners. 

40-2 (1 space for each side) - 2(corners) = 36 
25-2 (1 space for each side) - 2(corners) = 21 



15 FOR 1 = 1 TO 36:?' 

25 FOR 1 = 1 TO 21:?" gbQ» ■ 

35 FOR 1=1 TO 36:?"_lll"; 



45 FOR 1=1 TO 21:?"lirj"; * 




Horizontal sides 



Vertical sides 



Make these changes in your program and try a trial RUN. 

That was simple. Because you have just created a boundary around the 
edge of the screen, the last statement of the program to move the cursor out of 
the square is unwanted. Instead, delete line 50 and program the cursor to move 
inside of the box and print something; you do not want a boundary surrounding 
an empty screen. Be sure not to program the cursor to go beneath the square, 
because the screen will scroll up, and you will lose the top of the square. Program 
something inside the box, type RUN and watch it go! 
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SUMMARY 

Here are some important points to remember when animating: 

1. Map the picture on graph paper first. 

2. Use time delay loops to control print speed. 

3. Do not forget semicolons or cursor controls. 

4. Before the end of the program, move the cursor out of the picture before 
the program END or STOP writes the READY message. 



FILES 

Before attempting to use files, you must have a good understanding of what 
a file is. A "file" is a collection of information. Files appear in many forms, but 
the ones we are interested in are the groups of information on a cassette 
tape. Each group of information found on a PET cassette is either a "pro- 
gram" or "data" file. A file is divided up into smaller segments called 
"records" and "fields." A "field" is a unit of data. A unit of data may be of any 
type and any length. These units of data are grouped together into larger 
groups called "records." Records contain at least one field, but usually contain 
several fields. The records are then grouped together into a file. Each file con- 
tains at least one record, which may be as long as the file itself, or several records 
variable in length. Files, records, and fields have no fixed length unless your pro- 
gram sets a maximum length. The format of a file is shown below: 



fields 



records 



file 



tape 
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A good way to visualize what constitutes a file is to picture an address book. 
The address book may be a book, file cabinet, or cassette tape. The address book 
is then divided into 26 sections by letter: A through Z. Each section contains a 
collection of names and addresses of people whose last name starts with the par- 
ticular letter. We will call these alphabetic sections files. Therefore, the address 
book is divided into 26 files, each file referenced by a letter: 



ADDRESS BOOK 



Joe Adams 



563 Bancroft Way 



777 Greenfield 



-File 1(A) 
•File 2(B) 
•File 3(C) 



-File 25(Y) 
-File 26(Z) 



Each file is further divided into records. The name, address, and telephone 
number of each person in the address book constitutes a record: 



} record #1 



Joe Adams 


533-6564 


4 


563 Bancroft Way 




Bend, CA 




Steve Alberts 


654-3211 




336 Rose St. 




Berkeley, CA 




Gloria Arnold 


456-7890 




777 Greenfield 




Hayward, CA 





;. record #2 



^record #3 



•file #1 



Each record in the address file is divided into four fields. Field #1 contains 
the name; field #2 the street address; field #3 the city and state; and field #4 the 
telephone number. 















777 Greenfield — 


456-7890 




Hayward, CA -" — 





field #1 
field #2 
field #3 
field #4 



■ record #3 



To get to a field, the file and record numbers must be accessed first. In other 
words, to find out in what city Gloria Arnold resides. File #1 and Record #2 must 
be referenced first before Field #3 may be accessed. This structuring is very im- 
portant because it enables large quantities of data to be separated into smaller 
units, making it more organized and more easily accessible. 

The PET uses two types of files: program files and data files. 
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PROGRAM FILES 

A program is written onto the tape as an entire file. Its organization of 
records and fields is not determined by the programmer, but is done internally 
within the PET. The user need not worry about a program file's records and fields, 
since they are not important to the programmer. A program file should have a 
unique name because a name makes it much easier to find the program when 
searching the tape. The program file is named with a SAVE command; in other 
words, the program name becomes the program file name. 

Since you already know how to create a program file, we will quickly review 
the procedure (see Chapter 3). There are three steps in writing a program file: 

1. Code the program and type it into memory. 

2. SAVE the program on tape. 

3. VERIFY the SAVEd program. 

The first step is to code and then enter the program into the PET's memory. 
The second step uses the SAVE command: 

SAVE"filename",device,s 

where: 

filename is the program name enclosed in quotes. 

device (optional) is a predefined number (1-255). 

s (optional) is a secondary address code (0-5). See Table 4-2. 

The third step VERIFIES the program just SAVEd on tape by comparing it to 
memory to make sure everything is written correctly. Rewind the tape and type: 

VERIFY"filename" 

where: 

filename is the program filename just SAVEd. 

DATA FILES 

The other type of files are data files. The data file, as its name implies, eon- 
tains data to be read from a program file. Unlike a program file, the program- 
mer may define the organization of a data file into records and fields. The pro- 
grammer may establish the number of fields in each record, and the number of 
records in each file. He/she may also set maximum lengths or allow records and 
fields to be variable in length. The program file may be programmed to read or 
write any type of data to or from the data tape, whether numeric, alphabetic, con- 
stant, or string. 

The emphasis of this section is on data files — how to create and 
manipulate them with program files. Therefore, throughout the remainder of 
this chapter the term "file" refers to "data file." unless "program file" is 
clearly stated. Further, the discussion of data files concentrates on files stored on 
cassette tape. 
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Before beginning file operations it is advisable, if you have not already 
installed the new ROMs (Read-Only Memory chips) in the PET, that you do so 
before attempting to write files. With the old ROMs it is very difficult, if not im- 
possible, to read and write data tapes, as the tapes will not move without several 
extra commands to force the PET to move the tapes. File attributes of the old 
ROMs are discussed further in Appendix H. The following discussion assumes 
that you have the new ROMs. 



FILE HANDLING 

Being able to handle your files correctly is extremely important for successful 
programming. The programmer must know when to open or close a file, and when 
and how a file can be read from or written to. Basically, there are four steps in 
file handling: 

1 . LOAD the program file. 

2. OPEN the data file. 

3. Read/write to the data file. 

4. CLOSE the data file. 

Program LOAD is done in immediate mode. OPEN, read/write and 
CLOSE of the data file are programmed within the program file. The flow of 
the procedure appears as follows: 



LOAD 
program file 



MOUNT 
data tape 



RUN 
program file 



OPEN 
data file 



WRITE 
or READ 
data file 



c 



CLOSE 
data file 



END 



D 
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Step 1: LOAD the program file with the LOAD command: 

LOAD"PROGRAM" 

When you execute the program, it may write data to a data tape, or read 
data from a data tape. Therefore, once the program file is loaded, mount a tape. If 
the program will write a data tape, mount a blank tape. If the program will read a 
data tape, mount the data tape specified in Step 2. Then execute the program 
using the RUN command. 

Step 2: OPEN the data file. The data file is opened in program mode 
within the program file as illustrated: 



OPEN 1,1.2."DATA" 



file name 
secondary address 

■ physical device number 

■ file number 



The OPEN statement above opens file number 1 on physical device number 
1. (Physical device #1 is the cassette unit; refer to Table 4-1 for physical device 
codes.) Secondary address #2 is specified, which indicates an OPEN for WRITE 
with an End of Tape (EOT) mark to be set when the file is closed (refer to Table 4-2 
for secondary address codes). The file name specified is DATA. 

When writing a data file to a cassette tape, a secondary address code, 
#1 or #2, must be specified in the OPEN statement. A secondary address 
code #1 indicates the file to be opened to record data, but no EOT mark is set 
when the file is closed. Secondary address code #2 indicates that the file is 
opened to record data, and an EOT mark is to be written when the file is closed. 
When the PET encounters an EOT mark when reading a data tape, it displays END 
OF TAPE and reads no further; this can be used to assure that no attempt is made 
to read large amounts of blank tape. Therefore, a secondary address code 2 
should be used when the data file is the only file on one side of a cassette, or the 
data file is the last file on one side of a cassette. 

If no secondary address code is specified in the OPEN statement, the sec- 
ondary address defaults to 0. 

Step 3: Read or write to the data file. This will be discussed in the sections 
"Writing a Data File" and "Reading a Data File." 

Step 4: After a data file has been read from or written to, it must be 
closed. Like OPE N , closing a file is programmed within the program file with a 

CLOSE command. Be careful to CLOSE the same logical field that was OPENed. 

OPEN 1,1.2,"DATA" 



CLOSE 1 
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When the data file is closed, the PET writes a special mark, called an End of 
File (EOF) mark, on the data tape following the last data item. This mark signals 
that the end of the data file has been reached. Later, when the PET is reading a 
file, it will read no further when it encounters an EOF mark, knowing that it has 
reached the end of the file. An EOF mark may be searched for with the STATUS 
WORD command (ST), which checks the file status. ST equals 64 when an EOF 
mark has been found. The status word will be useful later when reading back data 
tapes. (For further discussion of the status word, refer to Chapter 4, "Basic 
System Functions.") 

Mounting the Data Tape 

Mount the data file cassette into the tape drive after you have loaded 
but before you have executed the program. If you run a program which is to 
read to or write from an external data file (such as a cassette) and there is no 
cassette to read to or write from, the PET will search forever looking for a file on a 
cassette that isn't even there! When the data cassette is mounted, the tape 
must be positioned so that the data file can be located. Certainly if the 
cassette is mounted but the tape is wound to the end, the PET will not be able to 
locate, read, or write any data file. 

When writing to a data tape, the PET begins writing on the tape exactly 
where it is positioned. Therefore, be sure that there is nothing at that position on 
the cassette which you don't want to lose if the PET writes over it. Also, be sure 
there is plenty of empty space on the cassette following the initial position, so 
that as the PET continues to write to the tape no further information gets written 
over. 

When reading from a tape, the PET searches forward for the data file 
name you have specified in your OPEN statement. Your data cassette should 
therefore be positioned at some point prior to the beginning of the data file you 
wish to read from. If the PET searches forward and never finds the data file 
specified in the OPEN statement, a FILE NOT FOUND ERROR message is printed 
on the screen. 

It is a good practice to put only one data file on each side of a cassette, al- 
ways beginning the file at or near the start of the tape. By doing this, you will al- 
ways position your tape at the beginning of the tape for both reading and writing. 
Furthermore, when writing to the tape, you will never need to worry about writing 
over any other file. 

WRITING A DATA FILE 

Creating a data file is an important programming technique because it 
expands the PET's capabilities to allow processing of large quantities of 
data. This is the emphasis of this section. 

To create a data file, LOAD the program file. To use an external data file, you 
must have three statements within the program file: an OPEN command, a read 
or write command, and a CLOSE command. 

242 



To write from a program to a data tape use the PRINT# command: 

PRINT#f.data 
where: 

f is the logical file number (1-255. must match the f in the OPEN and CLOSE 

commands), 
data is the data to be written. 

PRINT# cannot be typed as PRINT # or ?#. PRINT# must be completely spelled 
out when referencing files. 

PRINT# transfers data one character at a time to a cassette buffer 
before sending the data to the tape. When the cassette buffer reaches its 
maximum capacity of 191 bytes of data, the cassette buffer stops accepting 
data, and sends the data in the buffer to the data tape as a "block" of data. A 
block may contain a partial record, a single record, or several records of data. 



Data 
on screen 



Data 
in memory 



Data in 

cassette 

buffer 



Data 
on cassette 



Either numeric constants or strings may be transferred with the PRINT# 
statement. Figure 5-5 shows the flow of the PRINT# process. 

Writing Numbers 

Writing numbers to a data tape is similar to printing numbers on the screen. 
Let's write a program called NUM.PRINT#, to write the numbers 1 through 10 on 
a data tape, where each number is a single record. 

The first action of the program is a display of the program function and load 
instructions: 

NUM.PRINT# 

10 PRINT"."** CREATE NUMERIC DATA TAPE **":PRINT 

20 PRINT"** MOUNT TAPE; PRESS <RETURN> WHEN READV ♦♦" PRINT 

30 GET A*: IF A*="" THEN 30 

Line 20 instructs the user to insert the data tape in the cassette unit and rewind it 
to the beginning of the tape. Once the data tape is ready for writing, press 
RETURN. Line 30 is a wait loop which waits for RETURN or any key to be pressed. 
If no keystroke is entered, it waits. 

This wait loop is important because it doesn't let the PET do anything 
until you have loaded a data tape. If line 30 were deleted and there were no wait 
loops, the PET would give the user no time to mount and rewind the data tape. As 
soon as any cassette button was depressed, the PET would attempt to open the 
file, even if you were trying to rewind the data tape. 

Once a key is pressed, A$ £"" and the program drops down to the next line 
to OPEN the mounted data file: 

40 PRINT"** OPENING DATA FILE ♦♦" : OPEN1 , 1 , 2, "NUMBERS" 
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Figure 5-5. Using PRINT# 
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This OPEN command opens logical file #1, physical device #1 (the cassette tape 
unit), secondary address 2 (OPEN for write and EOT mark at close of file), assign- 
ing the new data file the name NUMBERS. 10 

Next, we set up a FOR . . . NEXT loop to print the numbers 1 through ^0 on 
the screen and on the data tape: 



50 FOR N=l TO 10 
60 PRINT N 
70 PRINT#1,N 
80 NEXT N 



■ Print N on screen 

■ Print N on data file #1 (NUMBERS) 



Printing to the screen and to the tape require separate commands. 

PRINT#1 ,N will print only to the tape. Remember that PRINT# cannot be typed in 
as ?#. PRINT must be spelled out completely, with the number sign, file number, 
comma, and variable following respectively. 

Incorrect Correct 

?#1,N PRINT#1,N 

PRINT N 

PRINT #1,N 

PRINT#1N 

PRINT1,N 

Any of the above incorrect methods will result in a syntax error, except 
PRINT N, which will print to the screen but not to the tape. 

If everything works correctly, lines 50 through 80 write to the tape and 
screen: 

PET screen Representation of Data Tape 



4 
5 



9 
10 




<CR >= carriage return 

Because data cannot be written on separate "vertical lines" on a tape, car- 
riage returns are automatically inserted on the tape in relation to the carriage 
returns on the screen. 

After all data is written to the tape, the file is closed. To ensure that all the 
data is written to the tape you must CLOSE the file. 



90 PRINT"** 
100 END 



CLOSING DftTfll FILE ♦♦": CLOSE 1 
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Be sure that the logical file CLOSEd is the same one that was previously OPENed. 



OPEN 1.1.2."NUMBERS" 



CLOSE 1 

The listing of NUM.PRINT# looks like this: 

IB PRINT'T>* CREATE NUMERIC DATA TAPE ♦♦"'PRINT 

20 PRINT"^ MOUNT TAPE; PRESS <RETURN> WHEN READV ♦♦": PRINT 

30 GET A*' IF A*="" THEN 30 

40 PRINT"^ OPENING DATA FILE ♦♦" : OPEN! , 1 ,2, "NUMBERS" 

50 FOR N=l TO 10 

6© PRINT N 

70 PRINT#1,N 

80 NEXT N 

90 PRINT "♦♦ CLOSING DATA FILE ♦♦" :CLOSEl 

100 END 

The main statements that differentiate this program from a program that prints 
only to the screen are at lines 40, 70, and 90: the OPEN, PRINT#, and CLOSE 
commands. 

Below is a RUN of the program: 

♦♦ CREATE NUMERIC DATA TAPE ♦♦ 

♦♦ MOUNT TAPE; PRESS <RETURN WHEN READV^ 

♦♦ OPENING DATA FILE ♦♦ 

PRESS PLAV & RECORD ON TAPE #1 
OK 

1 

2 
3 
4 
5 

G 

-? 
i 

8 

10 

♦♦CLOSING DATA FILE ♦♦ 
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Writing Strings 

The PRINT# statement also prints strings. Taking the previous program 
NUM.PRINT# and altering it somewhat, we can print the words "ONE" through 
"TEN" as strings. The new program will be called WORD.PRINT#. The words are 
supplied through either an INPUT or READ/DATA statement. Our sample program 
uses a READ/DATA statement. The READ statement is inserted in the FOR . . . 
NEXT loop at line 60 and a DATA statement is added to the end of the program. 
The final program is listed below, followed by a sample run of the program. 

WORD.PRINT# 

10 PRINT":>*CREATE WORD DATA FILE**" = PRINT 

20 PR I NT "♦♦MOUNT DATA TAPE; PRESS <RETURN> WHEN READV**" 

30 GET A*: IF A#="" THEN 30 

40 PR I NT " ♦♦OPEN I NO DATA F I LE** " : OPEN 1 , 1 , 2 , " NUMWORD " : PR I NT 

50 FOR N=l TO 10 

€0 READ N* 

70 PRINT N* 

80 PRINT#1,N* 

90 NEXT N 

100 PR I NT "♦♦CLOSING DATA FILE**" = CLOSE 1 

110 DATA ONE, TWO, THREE. FOUR, FIVE, SIX. SEVEN, EIGHT, NINE. TEN 

120 END 



♦♦CREATE WORD DATA FILE** 

♦♦MOUNT TAPE; PRESS <RETURN> WHEN READY** 

♦♦OPENING DATA FILE** 

PRESS PLAV & RECORD ON TAPE #1 
OK 

ONE 

TWO 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

EIGHT 

NINE 

TEN 

♦♦CLOSING DATA FILE** 

Writing one string per data item is simple, but writing several strings per 
data item is a little more difficult. To put several numbers or strings on each line, 
the item separators (commas or semicolons) must be "forced." These separators 
are otherwise automatically deleted, which results in a garbled mess when read- 
ing the file. For instance, if the following statement is executed: 

PRINT#1.F$.M$.L$ 
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it is sent to the tape with no commas separating the words. 



[ 



F$ M$ L$ 



The separators must be forced by one of the following two methods: 

1. Enclose the separator within quotes: PRINT#1,F$;",";M$;".";L$ 

2. Use the CHR$() statement: PRINT#1,F$;CHR$(44);M$;CHR$(44);L$ 

Item Item 

Separator Separator 

where: 

CHR$(32) = 
CHR$(44) = . 
CHR$(59) =; 

This second method will force commas or any other separators to be written on 
the tape, thus ensuring your strings will stay separated: 



j I F$ I • | M $ | • | 1$ | <CR> 5 



The program below, called NAMES.PRINT#. forces separators to keep F$. 
M$, L$ name strings (first, middle, last) from running together: 

NAMES.PRINT# 

10 PRINT":>*CREflTE NflME DATA FILE**" PRINT 

20 PR I NT "♦♦MOUNT DATA TAPE; PRESS <RETURN> WHEN READV**" 

30 GET fl*: IF A*="" THEN 30 

40 PRINT"**OPENING DATA FILE**" : OPEN1 , 1 ,2, "NRME" :PRINT 

50 FOR J=l TO 4 

60 INPUT F*,M*,L* 

70 PRINT F*,M*,L* 

80 PRINT#1 , F*; CHR*<44> ; M*; CHR*<44> i L* 

90 NEXT J 

100 PR I NT "♦♦CLOSING DflTfl FILE**" : CLOSE1 

110 END 
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Sample Program 

This sample program will demonstrate how to write complex records of data 
to a data tape, where the format of the data is specified by the programmer. The 
new program MAILPRINT# will print a mailing list named MAIL onto a data tape. 
MAIL will later be read by another program called MAIL.INPUT#. MAIL is similar 
to the address book previously discussed, except that MAIL contains all the 
names and addresses from A to Z. Each name and address, along with the record 
number, makes up a record of the mailing list. 

♦♦ RECORD #6 ♦♦ 

WIDGETS SUPPLV CO. I 

555 BOGUS RVE. > one record 

GERTIE 

TENNESSEE 38901 

At this point, the total number of records in the file is unknown. Each record 
is formatted to contain five fields: 1) record number, 2) name, 3) street address, 4) 
city, 5) state and ZIP code. 

♦♦ RECORD #6 ♦♦ field 1 

WIDGETS SUPPLV CO. field 2 

555 BOGUS AVE. field 3 

GERTIE field 4 

TENNESSEE 38901 field 5 

Of course, this is not what the data actually looks like on the data tape, but 
only how it has been arranged on the screen. The data on the tape is not written in 
English, but for purposes of demonstration it will be pictured as such. Below is an 
illustration of how record #6 appears on the tape. 




555 BOGUS AVE. <CR> GERTIE <CR> TENNESSEE 3890KCR >% 



i 

field 2 field 3 field 4 

l 
L one record - 



The program statements to read and print the data read from the tape determine 
how the data appears on the screen. 
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Following is a program listing of MAIL.PRINT#. Type MAILPRINT# into 
PET memory, and save it on a cassette tape. Then list the program to follow the 
step-by-step discussion to see how it writes MAIL. 

MAIL.PRINT# 

10 PR I NT ":»*********************" 

29 PRINT"* *<< 

30 PRINT"* MAILING LIST ENTRV *" 
40 PRINT"* *" 
50 PR I NT " ********************** » 

60 PR I NT "WW** MOUNT TAPE; <RETURN> WHEN READV **" 

70 GET A*: IF l=l*="" THEN GOTO 70 

30 PRINT"*** OPENING MAIL FILE **":fiPEN 1 . 1 . -"' . "MAIL" 

30 1=1+1 

.100 PR I NT "D ** MAILING LIST ENTRV ITEM" ; I . " **" 

lie PRINT" — — jjnj" 

120 PRINT" (IF NO MORE ENTRIES, ENTER " i CHP*C34> ; "END 
,, ;CHR*<34>; ".':•" 

130 PR I NT ".'«««: INPUT " 1 :> NAME " ; NM* 

140 IF NM*="END" THEN CLOSE 1 'PRINT »T;»*# END OF PRHn 
RAM ** " : END 

150 INPUT "2> ADDR LINE l";fli* 

160 INPUT "3> ADDR LINE 2".;A2* 

170 INPUT "4> ADDR LINE 3".; A3* 

ISO INPUT "SKDHM ENTER FIELD # TO f:HANGE Cfi==:Fi'..'E'. " ■ v 

190 IF X=@ THEN 220 

200 IF X>=1 AND X<=4 THEN GOSUE 2SO 

210 GOTO 180 

220 PRINT#1.. I 

230 PRINT#1,NM* 

240 PRINT#1,A1* 

250 PRINT#1,P,2* 

260 PRINT#1.. A3* 

270 GOTO 90 

280 PRINT"JSWW!":ON X GOTO 290, 380 . 31fi , :";20 

290 INPUT "1.:. NAME " .; NM* : RETI IRN 

300 PRINT- INPUT "2> ADDR LINE 1 " .; fll* : RETURN 

310 PR I NT": WW" INPUT "3> ADDR LINE 2" ; A2* : RETURN 

320 PRINT"MM«" : INPUT "4.5 P.DDR LINE 3", A3* : RETURN 

Recall the procedure to create a data file: 

1. Create and/or LOAD the program file. 

2. OPEN the data file. 

3. WRITE to the data file. 

4. CLOSE the data file. 

The first step is to LOAD the program file. MAIL.PRINT# should be loaded if 
it is not already in memory. List the program. The first five lines (10 to 50) display 
a brief description of the function of the program. It's a good idea to describe the 
program because it helps to ensure that the user knows the function of the pro- 
gram. The next segment instructs the user to mount the data tape (lines 60 and 
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The second step is to OPEN the data file: 

88 PRINT"*** OPENING MOIL FILE **" = OPEN 1 , 1 , 2, "MfilL" 

MAIL is opened as logical file #1 on the cassette unit, with an EOT mark to 
be written at the CLOSE of the file. The message " OPENING MAIL FILE " is 
displayed on the screen immediately prior to the actual OPEN command so the 
user knows that the file is being opened (it takes a few seconds to open the file). 

Now the tape is ready to accept data. As data is input to the tape it should 
also be input to the screen so the data may be checked for mistakes. Lines 130 
through 170 input the data to the screen. 

Variable "I" in line 90 is the incrementing record counter, displayed at line 
100. Lines 130 to 170 accept each variable, NM$ (name) and A1$, A2$, and A3$ 
(addresses) as separate fields by keyboard input; the end of each field is signaled 
by a carriage return. After all four fields have been entered, line 180 instructs the 
user to either change a field or save the record. If a field is incorrect, the user types 
the field number (1-4) and the program jumps to a correction routine at line 280 to 
change that field. 

Depending on the field number input (variable X) the cursor is placed at the 
specified field, allowing the user to change the field, and the program returns to 
line 180 for the user to specify another field change. When all the fields are cor- 
rect and is input, the program continues at lines 220 through 270 to write the 
record on the data file. Each data item is written as a separate field by writing only 
one data item with a carriage return per PRINT* command. The data is written to 
the data tape as: 

% 65 <CR> WIDGET SUPPLY CO. <CR> 555 BOGUS AVE. <CR> GERTIE \ 

Be sure the file number referenced by the PRINT# is the same one specified in the 
OPEN statement. 

After the record is saved, the program returns to line 90 to prepare for input 
of another record. If you have no more records to enter, enter "END" for NM$. 
Line 140 closes the data file and writes an EOT mark (specified in the OPEN com- 
mand) when NM$="END". 

You may have noticed that the tape does not move after each record is 
saved. The PET stores all the data to be printed in an "input buffer" until it is 
written to the tape. When the input buffer is full, it writes a "block" of data 
to the tape. A block may contain a partial record, a single record, or several 
records. The PET leaves interblock gaps between each block of data. However, 
you need not be concerned with blocks except to understand that the PET reads 
and writes data in blocks. 



i block gap block gap 7 



Figure 5-6 shows a flowchart of the MAIL.PRINT# program. 
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Figure 5-6. MAIL.PRINT# 
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Let's try a sample run of the program. Prepare a data tape and run the pro- 
gram to write your mailing list onto the data tape. A sample run may look like this: 

********************** 

* * 

* MAILING LIST ENTRY * 
t * 
********************** 

** MOUNT TAPE; PRESS <RETURN> WHEN READY ** 

** OPENING MAIL FILE ** 

PRESS PLAY & RECORD ON TAPE #1 
OK 

** MAILING LIST ENTRY ITEM 1 ** 



(IF NO MORE ENTRIES, ENTER "END") 

ENTER FIELD # TO CHANGE <©=SAVE> 



1> NAME ACME MANUFACTURING CO. 

2> ADDR LINE 1 1235 MAIN ST. 

3> ADDR LINE 2 DOWNTOWN 

4> ADDR LINE 3 IL 62561 



** MAILING LIST ENTRY ITEM 2 ** 



CIF NO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHANGE <@=SAVE> 



1> NAME BENJAMIN FRANKLIN 

2> ADDR LINE 1 12 LIBERTY TOWER 

3> ADDR LINE 2 PHILADELPHIA 

4> ADDR LINE 3 PA 16524 



** MAILING LIST ENTRY ITEM 3 ** 



<IF NO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHANGE <0=SAVE> 



1> NAME NEIL ARMSTRONG 

2) ADDR LINE 1 537 SEA OF TRANQUILITY AVE. 

3> ADDR LINE 2 EARTHY I EW 

4> ADDR LINE 3 LUNAR 000000 
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*# MAILING LIST ENTRV ITEM 4 ** 



<IF HO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHANGE <G=SAVE> 



1> NAME MAMMOTH DISTRIBUTIOH CO. 

2> ADDR LINE 1 INDUSTRIAL PARK 

3> ADDR LINE 2 CI TV OF INDUSTRY 

4> ADDR LINE 3 CA 92425 



** MAILING LIST ENTRV ITEM 5 ** 



<IF HO MORE EHTRIES, EHTER "END") 

ENTER FIELD # TO CHANGE <0=SAVE> 

i> NAME HENRV MUSCATEL 

2) ADDR LINE 1 819 OAK ST. 

3> ADDR LINE 2 NAPA 

4> ADDR LINE 3 CA 95303 

** MAILING LIST ENTRV ITEM 6 ♦* 



<IF HO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHAHGE <0=SAVE> 



1> NAME WIDGET SUPPLY CO. 

2> ADDR LINE 1 555 BOGUS 

3> ADDR LINE 2 GERTIE 

4> ADDR LI HE 3 TEHHESSEE 38901 



** MAILING LIST ENTRV ITEM 7 ♦* 



OF NO MORE ENTRIES, ENTER "END"> 

ENTER FIELD # TO CHAHGE <0=SAVE> 



1> HAME EHD 

** END OF PROGRAM ♦* 
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READING A DATA FILE 

After you have written information to a data file, in order to use it in 
another program you must be able to read the information off the tape and 
put it into memory.When the PET reads a data tape it transfers the data to an "in- 
put buffer" before sending the data on to memory: 




The input buffer holds up to 191 bytes of data. The data is read off the tape 
until the input buffer is full. When full, the PET temporarily stops the tape, 
and transfers the data to its proper location in memory. 

You can see this happen if you read large quantities of data at a time: the 
tape stops for several seconds while the input buffer "dumps" the data into 
memory. Once emptied, the tape will move again as more data is read. A 
flowchart of this process is shown in Figure 5-7. 

Reading a data file is similar to writing one. The four main steps are the 
same (except that the file is read instead of written): 

1 . LOAD the program file 

2. OPEN the data file 

3. Read the data file 

4. CLOSE the data file 

Step 1 : Like writing to the tape, you must code your program to read the 
data file. Code and type the program into PET memory and save it on tape. 
Later, the program may be loaded when needed. Remember that the commands 
to open, read, and close the data file are programmed within the program file. 

Once the program file is loaded, mount the data tape. Then execute the pro- 
gram using the RUN command. 

Step 2: When the data file is opened it must be referenced with the 
same physical device number and file name it was assigned in the write pro- 
gram. A different logical file may be assigned, and the secondary address code 
must be for the READ option. 



Write Program 
OPEN 1.1.2."DATA" 



Read Program 
OPEN 1.1,0."DATA" 
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Figure 5-7. Read a Data File 

Step 3: To read a data file, load the program file.The program that you 
load should include statements that will open, read, and close the data file. 

There are two commands to read data from a tape: INPUT# and GET#. To 
read numbers and strings from a data file the INPUT# statement is used. The 
GET# statement reads one character at a time. 

Reading data from a data file using INPUT# and GET# is discussed in the 
following sections. 

Step 4: The last step closes the file after the data is read. CLOSE the 
same logical file that you OPENed. 

OPEN 1.1.0."DATA" 



CLOSE 1 
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A good way to CLOSE a file that is being read is to test for an End of File 
(EOF) with the STATUS WORD (ST). When the data file was written, an EOF 
mark was written at the end of the file. When an EOF mark has been found, the file 
status equals 64 and the file may be closed. You may test for an EOF mark and 
close the file in one statement: 

IF ST=64 THEN CLOSE 1 

When ST equals 64, the file will automatically CLOSE. 
Reading Numbers with INPUT# 

Previously we wrote the program NUM.PRINT# to write the numbers 1 
through 10 on the data tape NUMBERS, where each number was written as a 
single record. Now we will write a program called NUM.INPUT# to read the ten 
numbers from the NUMBERS data file, and print them on the screen. 

To read numbers and strings from a data tape the INPUT# command is 
used. INPUT# reads one data item at a time, the data items being separated by a 
semicolon, comma, or carriage return. 

INPUT#f,var 

where: 

f is the logical file number (1-255, matching the file number in the OPEN and 

CLOSE command), 
var is the variable name(s) of the data to be read. 

The first few lines of NUM.INPUT# instruct the user to load the data tape. 
These lines are identical to the first three lines of NUM.PRINT#. At line 30 is the 
wait loop allowing the user time to mount the data tape. After mounting the tape, 
key RETURN; the program continues at the next line. 

10 PR I NT "a** READ NUMERIC DATA TAPE **":PRINT 

20 PRINT"** MOUNT TAPE ; PRESS <RETURN> WHEN READV **":PRINT 

30 GET A*: IF A*="" THEN 30 

Before we can read any data, we must open the data file. Line 40 opens file #1, 
physical device #1, and secondary address (OPEN for read) with filename NUM- 
BERS. 
40 PRINT"** OPENING DATA FILE **":GPEN 1 , i , 0, "NUMBERS" : PRINT 

Next, a FOR. . .NEXT loop is set up to read the first ten data items from the 
tape and print to the screen: 

50 FOR 1=1 TO 10 
60 INPUT#1 , N read N from tape 

70 PRINT N print N on screen 

80 NEXT I 
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The INPUT# command at line 60 reads one number at a time. The PET 
knows where the numbers are separated because carriage returns were 
written between each number input to the tape. The FOR. NEXT loop (or a 
similar command such as GOTO) is necessary because a single INPUT# com- 
mand stops reading when a carriage return is encountered. Without a loop or 
GOTO command to return to the INPUT# statement, only one number would be 
read. The PET reads both the number and the carriage return and sends them to 
memory so that the carriage return will be printed on the screen. 

After the data is read, the file must be closed before ending the program. 

90 PRINT"** CLOSING DATA FILE ♦♦"■CLOSEi 
100 END 



Program 

FOR N=1 to 10 
INPUT#i,N 
PRINT N 
NEXT N 




Screen 



■ 1 


<CR> 


■ 2 


<CR> 


■3 


<CR> 


4 


<CR> 


• 5 


<CR> 


6 


<CR> 


7 


<CR> 


8 


<CR> 


9 


<CR> 


10 


<CR> 



A complete listing of NUM.PRINT# is printed below, followed by a sample 
run of the program. The only file manipulation commands in this program are at 
lines 40, 60, and 90: OPEN, INPUT# , and CLOSE. 

NUM.INPUT# 

10 PRINT".-** READ NUMERIC DATA FILE **":PRINT 

20 PRINT"** MOUNT TAPE.; PRESS CRETURN> WHEN READV" ■' PRINT 

30 GET A*: IF A$="" THEN 30 

40 PRINT"** OPENING DATA FILE **":OPEN 1 , 1 .. 0, "NUMBERS" : PRINT 

50 FOR 1=1 TO 10 

SO INPUT#1,N 

70 PRINT N 

80 NEXT I 

90 PRINT"** CLOSING DATA FILE ♦♦'■: CLOSEI 

100 END 
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♦♦ REfiD NUMERIC DATA TAPE ♦♦ 

♦♦ MOUNT TAPE; PRESS <RETURN> WHEN READV ♦♦ 

♦♦ OPENING DATA FILE ♦♦ 

PRESS PLAV ON TAPE #1 
OK 



4 

5 

e 

7 
8 
9 

10 
♦♦ CLOSING DATA FILE ♦♦ 

Reading Strings 

The INPUT* statement also reads strings. In the "Writing Strings" section 
(page 247), we wrote the program WORD.PRINT* to write onto tape ten strings 
read from a DATA statement. The data file created was named NUMWORD. The 
data from NUMWORD looks like this on tape: 



: <CR> ONE <CR> TWO <CR> <CR> NINE <CR> TEN <CR> 



To read NUMWORD, use INPUT# in your program to read the data. The 
difference from the previous program is that the input variable must be able to ac- 
cept strings. With only slight modification, you can change the READ NUMERIC 
DATA TAPE program to read NUMWORD. The changes occur at line 40 (name the 
data file), and line 60 (INPUT variable). The complete changed listing appears 
below, followed by a sample run of the program. 

To read data in which several strings have been written for each carriage 
return is no different from reading single strings nor as difficult as writing several 
strings per line, except for screen formatting. 

IS PR I NT "73** READ NUMWORD DATA FILE ♦♦":PRINT 

20 PRINT"** MOUNT TAPE.: PRESS <RETURN> WHEN READV": PR I NT 

3@ GET A*: IF A*="" THEN 30 

40 PRINT"** OPENING DATA FILE **":OPEN 1 > 1 , 0, "NUMWORD" : PRINT 

50 FOR 1=1 TO 10 

60 INPUT#1,N* 

70 PRINT N* 

80 NEXT I 

90 PRINT"** CLOSING DATA FILE ♦♦"•■ CLOSE 1 

100 END 
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♦♦ READ NUMWORD DATA FILE ♦♦ 

♦♦ MOUNT TAPE; PRESS <CRETURN> WHEN READV 

♦♦ OPENING DATA FILE ♦♦ 

PRESS PLAV ON TAPE #i 
OK 

ONE 

TWO 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

EIGHT 

N I NE 

TEN 

♦ ♦ CLOSING DATA FILE ♦♦ 

To read data in which several strings have been written for each carriage 
return is no different from reading single strings, and not as difficult as writing 
several strings per line, except for screen formatting. 

Returning to the NAMES. PRINT* program (page 248), recall that the data 
in data file NAME was written as three separate strings for each carriage 
return: F$, M$, L$, (first, middle, last). Each string had forced commas separating 
the strings so the three strings would not be garbled together. The data tape 
looked like this: 

^ HEADLY, GEORGE. JOYCE <CR> CAROL, A. , SMITH <CR> *% 

The forced commas keep the data from being printed on the screen as one con- 
tinuous string. 

HEADLVGEORGEJOVCE 
CflROLfl. SMITH 

This would also cause problems when trying to read the name as three strings, 
when on tape it is only one. 

The program to read the multiple strings in NAME is listed below. On tape, 
the commas act as string separators the same as does a carriage return, so at line 
60 the first, middle, and last names will be read separately. Line 70 formats the 
data to print on the screen with first, middle, and last name on one line, and a 
space between each. A sample run of the program follows the listing. 
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10 PRINT":** READ NAME DATA FILE ♦♦"■PRINT 

2© PRINT"** MOUNT TAPE; PRESS <RETURN> WHEN READV" : PRINT 

30 GET A*: IF A*="" THEN 30 

40 PRINT"** OPENING DATA FILE **":OPEN 1 , 1 , 0, "NAME" : PRINT 

50 FOR J=l TO 4 

60 INPUT#1,F*^M*,L* 

70 PRINT Ft; " 'SM*;" ".;L* 

SO NEXT J 

90 PRINT"** CLOSING DATA FILE ♦♦"•• CLOSE 1 

100 END 

♦♦ READ NAME DATA FILE ♦♦ 

♦♦ MOUNT TAPE; PRESS <RETURN> WHEN READV ♦♦ 

♦♦ OPENING DATA FILE ♦♦ 

PRESS PLAV ON TAPE #1 
OK 

ARNOLD J. SIMPSON 
BETTV S. CLARK 
HEADLV GEORGE JOVCE 
CAROL ANNE SMITH 

♦♦ CLOSING DATA FILE ♦♦ 

Sample Program 

This sample program demonstrates how to read complex records of data 
from a data tape. This program, called MAIL. INPUT#, reads the mailing list data, 
which was written to data file MAIL by a program titled MAIL. PRINT* 
(MAIL. PRINT* listing, page 250). Each MAIL file record contains five fields; 
these fields are reserved for the record number, customer name, street, city, and 
state and ZIP code. Below is an example of a MAIL file record: 

*♦ RECORD #6 ♦* field 1 

WIDGETS SUPPLV CO. field 2 

555 BOGUS AVE. field 3 

GERTIE field 4 

TENNESSEE 38901 field 5 

Following is a program listing of MAIL.INPUT#. Type in MAILINPUT# and 
save it on a cassette tape. Then list the program to follow the step-by-step discus- 
sion. 
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MAIL INPUT* 
i & PR I NT " IS**************************** " 
20 PRINT"* *" 

3© PRINT"* READ MAIL FILE W/ INPUT# *" 
40 PRINT"* *" 

50 PR I NT " **************************** " : PR I NT = PR I NT 
60 PRINT"** PRESS <RETURN> WHEN TRPE IS LORDED **M" 
7© GET A*: IF A*="" THEN 70 

86 PRINT"** OPENING MAIL FILE **" ■ OPEH1 , 1 , 0, "MAIL" 
90 PR I NT "M** READING MAIL FILE **" 
10© IF ST=64 THEN 9999 
110 INPUT* 1,1* 
126 INPUT#1,NM* 
130 INPUT#1,A1$ 
140 INPUT#1,A2* 
150 INPUT#1..A3$ 

160 PR I NT "3** RECORD #"Jl*;" **" 
170 PR I NT " SSMHSHNAME = " .: TRE < 9 > i NM* 
1 80 PR I NT " ADDR : " .: TAB < 9 > i A 1 * 
1 90 PR I NTTAE < 9 > i A2* 
200 PR I NTTAE < 9 > i A3* 
210 PRINT-WMMM" : 

220 INPUT "ENTER 'V TO RERD NEXT RECORD" ; A* = IF fl*="V" GOTO 100 
9999 PR I NT "»** END OF MAIL FILE— PROGRAM TERMINATED" : CLOSE 1 : END 

The procedure for reading from data files is: 

1. Create and/or LOAD the program file. 

2. OPEN the data file. 

3. READ the data file. 

4. CLOSE the data file. 

The first five lines display a brief program description. The next two lines, 60 
and 70, instruct the user to mount the data tape. We are now ready to begin read- 
ing customer addresses. First the data file must be opened. MAIL is opened as 
logical file #1 on the cassette unit #1. This correlates to how it was saved in 
MAIL.PRINT#. The secondary address must be for READ. 
80 PR INT"** OPEN I NG MA I L FILE ** " = OPEN 1 .. 1 , , " MR I L " 

Next, read the data. Line 100 uses the status word (ST) to check for the End 
of File mark. If ST=64 (indicating an End of File mark is found), then the file is 
closed at line 9999. The ST should be checked before data is read so that you do 
not attempt to do any unnecessary reading when there is no more data. 

Lines 1 10 to 150 read the data using INPUT#. Each field was printed to the 
tape with an individual PRINT#; the fields are separated by carriage returns so 
each field will be read in turn with an individual INPUT#. The variable or string 
names may be different when reading the data than when writing the data. For in- 
stance, data may be written to the tape as X$ and read back from the tape as A$, 
and the PET will not know the difference because the data variable name is not 
saved. 
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I 



6 <CR> WIDGETS SUPPLY CO. <CR> 555 BOGUS AVE. <CR> GERTIE <CR> TENNESSEE 3890 



read 



INPUT #1,1 

INPUT #1. NM$ ' 

INPUT #1. A1$ - 
INPUT #1. A2$ - 
INPUT #1. A3$ - 



read 



T" 



I 



read 



read 



When the PET reads data it stores it in the input buffer (memory), but 
nothing is written to the screen unless you tell it to. Therefore, you must tell 
the PET to print the data on the screen. Once the data is in the input buffer it may 
be printed to the screen in any format, as you can see in lines 160 to 200, where 
tabs and leaders were inserted. Line 210 moves the cursor down four lines. 

ISO PRIHT'TJt* RECORD #";I*;" **" 
1 7@ PR I NT " SJMWMeWAME = " .■ TAB < 9 > ; NM* 
130 PR I NT " ABDR : " i TAB < 9 > .: A 1 * 
1 90 PR I NTTRB < 9 > ; A2$ 
2@0 PR I NTTAB < 9 > ,' A3* 
210 PRINT"MMW»" : 

The screen output looks like this: 

♦♦ RECORD #6 ♦♦ 

NAME: WIDGETS SUPPLV CO. 

flDDR: 555 BOGUS AVE. 

GERTIE 

TENNESSEE 38901 

After all four fields are printed, PET asks the user if the next record is 
desired: 

220 INPUT "ENTER 'V TO READ NEXT RECORD".; At : IF A*="V" GOTO 100 

If the user wants the next record, the program goes to 100 and repeats the pro- 
cess until the status word (ST) signals an EOF. If the user does not wish to con- 
tinue, or if an EOF is encountered, the file is closed and the program ends. 

Figure 5-8 shows a flowchart of the MAILINPUT# program. A sample run of 
the program follows. 

As you run your own MAIL.INPUT# program, do not panic if the PET ap- 
pears to shut off for a few seconds. If you watch the cassette until you will see 
that the cassette tape is moving when it appears that the PET is stopped. What is 
happening is that the PET is reading the next 191 bytes of data into the input 
buffer before continuing on with the program, as was previously explained. Once 
the buffer is full, program control will return. 
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Start 
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Mount 
data tape 


i 


OPEN 
data file 




Read fields 
w/ INPUT # 




CLOSE 
data file 



( End ) 



Figure 5-8. MAIL.INPUT# 
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* * 

* READ MAIL FILE U/ INPUT# * 

* * 

*# PRESS <RETURN> WHEN TOPE IS LOADED ** 

** OPENING MAIL FILE ** 

PRESS PLAY ON TAPE #1 
OK 

** READING MAIL FILE ** 
*# RECORD # 1 ** 



NAME: flCME MANUFACTURING CO. 

ADDR: 1235 MAIN ST. 

DOWNTOWN 

IL 62501 



ENTER 'V TO READ NEXT RECORD 
** RECORD # 2 ** 



NAME: BENJAMIN FRANKLIN 

ADDR: 12 LIBERTY TOWER 

PHILADELPHIA 

PA 16524 



ENTER 'V TO READ NEXT RECORD 
** RECORD # 3 ** 



NAME: NEIL ARMSTRONG 

ADDR: 597 SEA OF TRANQUILITY AVE. 

EARTHVIEW 

LUNAR 000600 



ENTER --V TO READ NEXT RECORD 
** RECORD # 4 ** 



NAME: MAMMOTH DISTRIBUTION CO. 

ADDR: INDUSTRIAL PARK 

CITY OF INDUSTRY 

CA 92425 
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ENTER 'V TO READ NEXT RECORD 



** RECORD # 5 ** 



NAME: 


HENRV MUSCATEL 


flDDR: 


819 OAK ST. 




NAPA 




CA 95303 



ENTER 'V TO READ NEXT RECORD 
** RECORD # 6 t* 



NAME : 
ADDR : 



WIDGET SUPPLY CO. 
555 BOGUS 
GERTIE 
TENNESSEE 3890 1 



ENTER -V TO READ NEXT RECORD 

** END OF MAIL FILE— PROGRAM TERMINATED ** 

Reading Numbers with GET# 

Another method of reading data files uses the GET# command. 

GET#f.var 
where: 

f is the logical file number (1-255. matching the file number in the OPEN and 

CLOSE commands), 
var is the variable name of the data to be read. 

GET* reads one character at a time from the data file and transfers it 
through the input buffer to memory. It is similar to GET, which accepts one 
character at a time from the keyboard and transfers it to the screen. 



Data File 



I 



Memory 



Input 
Buffer 



266 



Because GET# reads one character at a time and not a 191 -byte block at a 
time like INPUT#. it is able to read all file delimiters and anything else on the 

tape. This feature is especially helpful when you want to read everything that is 
written on a bad data tape to find the problem. GET# also allows a single 
character to be compared to a status or character value within programs. This will 
be demonstrated in the sample programs. 

The two sample programs in this section will demonstrate how to print out 
an entire file including all file delimiters, and how to print out the MAIL data file 
separated into records. 

Sample Program 1 

The following program. MAIL.GET#1, reads data file MAIL one character at 
a time and prints the contents of MAIL on the screen: 

MAILGET#1 

i e pr i nt " s**************************** " 

20 PRINT"* *" 

30 PRINT"* READ MAIL FILE W,-' GET# *" 
40 PRINT"* *" 

50 PRINT"****************************" : PRINT -PRINT 
60 PRINT"** PRESS <RETURN> WHEN TAPE IS LOADED **" 
70 GET A*: IF A*="" THEN 70 

80 PRINT"*** OPENING MAIL FILE **" : PRINT : OPEN1 , 1 , 0, "MAIL" 
30 PRINT"*** MAIL FILE **" 
100 IF ST=64 THEN 9999 
110 GET#1,X* 

120 IF X*=CHR*U3> THEN X*="&" 
130 PRINT X*; 
148 GOTO 100 

9999 PRINT "MM*** END OF MAIL FILE — PROGRAM TERMINATED**" 
: CLOSE 1 -END 

Lines 10 through 90 are similar to the first lines of MAIL. INPUT* (page 
262). These lines introduce the program, give instructions for mounting the data 
tape, and then open the data file. 

Lines 100 through 140 control the reading of the MAIL data file and the 
printout of its contents on the screen. 

Line 100 checks for an End of File (EOF) status. If an EOF is not encountered, 
the data is read at line 110. In line 110, #1. is the file number and X$ is the varia- 
ble name assigned to the data strings. This statement will read the first character 
encountered and transfer it through the input buffer to memory. 

Then the program drops through to line 120. Line 120 compares the current 
value of X$ to a carriage return (CHR$(1 3)). If the value of X$ is CHR$(1 3), then the 
value of X$ is changed to a FULL GRID ■ . This change avoids printing a car- 
riage return, which would push the cursor to the next line; with the FULL GRID 
being printed, the whole file appears as one continuous line, representing how it 
is written on the data tape. An example of this will be shown in the sample run. 
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Next, the character is printed on the screen. You will see in the sample run 
that a FULL GRID ■ appears for each carriage return. Also, make sure that a 
semicolon follows the variable in the PRINT statement, otherwise the data will 
only be printed down the first column of the screen. 

After one character is read from the tape and printed on the screen, the pro- 
gram is directed back to check the status and GET# another character. This pro- 
cess should repeat itself until ST=64 (the End of File). When the End of File is en- 
countered at line 100, the job of MAILGET#1 is complete. At line 9999 the pro- 
gram closes the data file and ends. 

Following is a sample run of MAILGET#1, using MAIL as the data file. 

MAIL. GET#1 



* * 

* READ MRIL FILE W/ GET# * 

* * 



** PRESS <RETURN> WHEN TAPE IS LOADED ** 

** OPENING MAIL FILE ** 

PRESS PLAV ON TAPE #1 
OK 

** MAIL FILE ** 

1 8ACME MANUFACTURING CO. 81235 MAIN ST. 
8DOWNTOWN8IL 625018 2 8BENJAMIN FRANKL 
IN812 LIBERTV TOWER3SPH I LADELPH I A 16524 
8 3 8NEIL ARMSTR0NG859? SEA OF TRANQUIL I 
TV8EARTHVIEW8LLINAR 000008 4 8MAMMOTH D 
ISTRIBUTION C0.8INDUSTRIAL PARK8CITV OF 
INDUSTRV8CA 924258 5 8HENRV MUSCATEL88 
19 OAK ST.8NAPA8CA 953038 6 8WIDGET SU 
PPLV CO. 8555 BOGUS AVE. 8GERTIE8TENNESSEE 
389018 



** END OF MAIL FILE—PROGRAM TERMINATED** 
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Sample Program 2 

Next is the sample program MAIL.GET#2, to read MAIL and print the data 
on the screen divided into records. Below is a program listing of MAIL.GET#2. 

MAILGET#2 

16 PR I NT " :»************************* " 

20 PRINT"* *" 

30 PRINT"* READ MAIL FILE W/ GET# *" 

40 PRINT"* *" 

50 PR I NT " ************************** " : PR I NT : PR I NT 

65 PRINT"** PRESS <RETURN> WHEN TAPE IS LOADED **": PRINT: 

70 GET A* IF A*="" THEN 70 

80 PRINT"** OPENING MAIL FILE **" : PRINT : OPEN 1 , 1 .. 0, "MAIL" 

90 PRINT = PRINT":** MAIL FILE **": PRINT: 

100 IF ST=64 THEN 9999 

110 GET#1,X* 

120 IF X*=CHR*<13> THEN F=F+1 

138 PRINT K*.; 

140 IF F>=5 THEN GOSUB 160 

15© GOTO 100 

160 PRINT: 

170 R=R+1 

180 IF R>2 THEN PRINT "PRESS 'V FOR NEXT SET OF RECORDS" 

.: : INPUT A* 
185 IF A*="Y" THEN R=0 
190 F=0 : PR I NT : RETURN 
9999 PRINT".W«»** END OF MAIL FILE — PROGRAM TERMINATED**": 

CLOSE 1 :END 

Type in MAIL.GET#2 and SAVE and VERIFY it on a cassette tape. LIST the 
program. 

The first ten lines (10 through 100) of MAIL.GET#2 are identical to the first 
ten lines of MAIL.GET#1. This part of the program informs the user of the pro- 
gram's functions and procedures, and opens the MAIL data file in preparation for 
reading the data. 

The real difference between MAIL.GET#2 and MAIL.GET#1 is at line 120. If 
X$=CHR$(1 3), instead of changing the value of X$ from a carriage return to FULL 
GRID H , variable F — a carriage return counter — is incremented by one. When 
MAIL.PRINT# wrote to the data file, a carriage return marked the end of each of 
the five fields in each record. By keeping track of the number of carriage returns, 
MAIL.GET#2 counts the number of fields read to know when an entire record has 
been read. This can only be done by programming a conditional statement into 
the read program where GET#is used instead of INPUT#. Line 140 conditionally 
calls a subroutine if the specified condition is true. 
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Statement 160 prints blank lines between records. In statement 170, varia- 
ble R serves as a record counter. Line 180 tests to see if more than two records 
have been read. When three records have been read, the screen is full, and the 
user is asked if a new set of records is desired. If yes, the record counter R and the 
field counter F are initialized to zero before returning to read the next set of 
records at line 100. If more records are to be read, the program is sent to line 100 
to GET# the next character. This continues until the user inputs something other 
than a Y character or ST =64; at that time the file is closed and the program ends. 
Figure 5-9 shows a flowchart of the process of lines 100 to 190. 

Although GET# is similar to INPUT# in some ways, it is more difficult to for- 
mat the printout when using GET# if titles and indentation or spacing is desired. 
Like comparing X$ to CHR$(1 3), other field delimiters or characters would have to 
be conditionally tested if one desires more than a simple printout. 

At this time you should feel comfortable manipulating program and data 
files. The three file commands PRINT#, INPUT#, and GET# are surprisingly simi- 
lar. When using files, make sure that the same logical file numbers are used 
throughout the program, and that each logical file is opened before it is called and 
closed before the program ends. It is also good practice to display messages on 
the screen explaining what the PET is doing so the user always knows what is 
happening. 

Following is a sample RUN of MAIL. GET#2 reading MAIL. 



270 



f Mf TTTtT TT*T*TT**TTTTTtTT 

* * 

* READ MOIL FILE W/ GET# * 

* * 
♦a************************ 

** PRESS <RETURN> WHEN TAPE IS LORDED ** 
** OPENING MFIIL. FILE ** 
PRESS PLAY ON TAPE #1 
OK 

** MFIIL FILE ** 

1 
ACME MANUFACTURING CO. 
1235 MAIN ST. 
DOWNTOWN 
IL 62501 



2 
BENJAMIN FRANKLIN 
12 LI BERT V TOWER 
PHILADELPHIA 
PA 16524 



3 
NEIL ARMSTRONG 
59? SEA OF TRANQUILITY 
EARTHVIEW 
LUNAR 0O000 

PRESS 'V FOR NEXT SET OF RECORDS?Y 

4 
MAMMOTH DISTRIBUTION CO. 
INDUSTRIAL PARK 
CI TV OF INDUSTRY 
CA 92425 



5 
HENRV MUSCATEL 
813 OAK ST. 
NAPA 
CA 95303 



6 
WIDGET SUPPLY CO. 
555 BOGUS AVE. 
GERTIE 
TENNESSEE 38901 

PRESS 'V' FOR NEXT SET OF REC0RDS7V 

** END OF MAIL FILE — PROGRAM TERMINATED** 
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ne 100) 



GET* 

1 character 

from data tape 




(line 110) 



No ^xT^haracter ^ 
rriage returo, 

' '(line 120) 
Yes 



Increment 
CR counter F: 

F = F+1 



i (line 120) 



ne 130) 

No 

I i (line 150) "V^*^(|j ne 140) 
GOSUB 16otYes 



Print character 
on screen 




Print one 
blank line 



(line 160) 



Increment 

record counter R 

R = R+1 



(line 170) 




ne 185) 



nitialize 

record counter R 

R-0 



Initialize 

CR counter F: 

F-0 



(line 190) 



Figure 5-9. Format Printing Using GET# 
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ALTERNATE CHARACTER SET 

Another PET feature is its dual character set, made up of a "standard" and 
an "alternate" character set. For most keyboards the Standard Character Set 
consists of capital, or upper-case alphabetic characters, and graphic charac- 
ters. The Alternate Character Set is upper case alphabetic characters, 
shifted lower-case alphabetics and about half of the graphic characters. On 
the CBM, standard and alternate character sets are reversed. The difference 
between the two character sets occurs in shifted mode: 





Standard Character Set 


Alternate Character Set 


Unshifted 
mode 


Upper-case alphabetics 


Upper-case alphabetics 


Shifted 
mode 


Graphics 


Lower-case alphabetics 
some graphics 



The Alternate Character Set is put into effect by POKEing a special value 
into a specified location in memory. The contents of memory address 59468 
determines which character set is in operation. When memory location 59468 
contains the value 1 2 or 1 3, the Standard Character Set is in use. If location 59468 
contains any value from to 1 1, or 14 to 255. the Alternate Character Set is in 
effect: 

Contents of Memory Location 59468 Character Set in Operation 



0.1,2,3.4.5,6,7,8,9,10,11 


alternate 


12,13 


standard 


14.15.. .255 


alternate 



For the purpose of simplicity, we will always use value 12 to designate the 
Standard Character Set and value 14 for the Alternate Character Set. 

Figure 5-10 is a flowchart of the Standard/Alternate Character Set decision. 
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MEMORY 
address contents 





59468 




Standard 
Character Set 



Alternate 
Character Set 



Display 

Upper-case 

Alphabetics 

and Graphics 

(Shift) 



[Screen 



Personal 
Electronic 
Transactor 



Display 

Upper-case and 

Lower-case 

Alphabetics 

(Shift) 



f Screen 



Personal 
Electronic 
Transactor 



Figure 5-10. Standard/Alternate Character Set Decision 
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On PET power-up, value 12 is automatically POKEd into memory address 
59468 (value 14 for the CBM). activating the Standard Character Set. The PET 
begins and remains in this mode until programmer intervention changes the 
character mode. However, once the character sets are switched, the new 
character set is displayed until either 1) the PET is turned off; whereas on power- 
up the Standard Character Set is activated, or 2) the other character set is POKEd 
into effect. 



Turn 
Power On 



Standard 

Character Set 

Activated 



Activate New 

Character 

Set 



Screen 
Display 




Screen 
Display 



c 



End 
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Changing character sets is done by POKEing a numeric value into memory 
location 59468. POKE a numeric value from to 1 1 or 14 to 255 into location 
59468: 

POKE 59468,12 activate the Standard Character Set 
POKE 59468,14 activate the Alternate Character Set 

To change from Standard to Alternate Character Set, type the following 
statement in calculator mode: 

POKE 59468,14 
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This will push value 12 out of location 59468 and POKE value 14 in. 




Character sets may be changed in either calculator or program mode. In 

calculator mode the change is immediate, whereas a programmed conversion re- 
quires the program statement to be run first. Whenever the character set is 
changed, the whole screen image is affected. For example, draw a graphic pic- 
ture of a spiral on the screen, as shown below. In calculator mode, POKE value 14 
into memory location 59468. The picture will instantly change to lower-case 
alphabetics and graphics. Figure 5-11 illustrates this sequence. 



a) Standard Character Set 


b) Change Character Set 


c) Alternate Character Set 


•o«oeo«o«o«o«o 


•o«o*o«o«o«o«o 


qwqwqwqwqwqwqw 




• 


• 


q 


•o«o«o«o«o*o 


o 


•oeoeo«oeoeo o 


qwqwqwqwqwqw w 


o • 


• 


o • • 


w q q 


• •o*o«o*o 


o 


• eoeoeoeo o o 


q qwqwqwqw w w 


o o«o«o*o* • 


• 


o o#oeo»o» • • 


w wqwqwqwq q q 


• • o 


o 


• • 


q q ww 


o oeo«o«o*o« 


• 


o oeoeo»o»oe • 


w wqwqwnwqwq q 


• 


• 


• • 


q q 


•o«o*oeo«o*o*o 


•o«o*o«o«o«o*o 


qwqwqwqwqwqwqw 






. prifP ^.Q^l^A 1 A ^rp'i' 


y instant 




* rUr\L jjHDo^ i *r n.c-K-^ 








change 



Figure 5-11. Standard to Alternate Character Set 



276 



FEATURES OF THE ALTERNATE CHARACTER SET 

In alternate character mode, the 26 alphabetic keys will print lower- 
case alphabetics. Shifted punctuation and special symbol keys print the graphic 
symbols because there are no lower-case punctuation marks. The shaded keys in 
the compact keyboard diagram below are the keys which remain unchanged; 
some special symbols are rearranged on the full size keyboards. Notice that nearly 
the entire top and bottom rows and the entire numeric keyboard are not affected. 




(inst) 

1 »*»i i 



wut 



B |q1 
9 II / 1 



53 



m 



nn 

LU 



cum 

mmai 



nm 



Four keys in the upper right side of the keyboard print a unique special 
symbol when shifted, instead of the standard graphic character. These four 
are shaded in the diagram below: 



m 




ffTl 
# J 


m 


m 


(TT\ 


f~"l 
& 1 


m 


m 




m 


f ■ 


n 
1 w j 


ID 


li) 


fD 


TT 

l Y J 


LU 


w 


f n 
L o J 


□ 
L pJ 


71 


m 


1 s j 


m 


m 


ffi 


LdJ 


ffl 


QD 


B 


fir 


R ) 

E 

T 

u 
R 

[ N J 


m 


1 X 1 


Gf) 


m 


m 


pzTl 

N 


M J 


m 


m 




s 


I OFF 1 

BVS 

{ OH J 


[±j 


m 


|m 


SPACE 


12J 


ID 


RUN 
[STOP] 




~~ j 



In shifted alternate mode, these keys print: 



?1— s 
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The cursor controls perform their normal movements in the alternate mode. 
However, some of the shifted cursor controls display a lower-case alphabetic 
symbol instead of their normal symbol. For instance. CLEAR is normally displayed 
as a n . but in alternate mode it is displayed as a lower-case s. The chart below 
shows the change in the cursor symbols. 



' CI. 
SCREEN 
HOME 


1 

s 


CURSOR 


q 








INST 
DEL 


t 


<= 
CURSOR 


(unaltered) 




r 






f OFF 

RVS 

ON 


RUN 
STOP 


(unaltered) 



Summary 

With a few exceptions, the Alternate Character Set may be summed up as 
follows: 

1. Value 14 is POKEd into memory location 59468 to activate the Alter- 
nate Character Set. 

2. The PET must be in shifted mode to print the lower-case alphabetics or 
special symbols. 

3. The Alternate Character Set may be divided into three categories: 

a. Upper-case alphabetics: keys A through Z 

b. Graphic symbols: all punctuation (except the four unique keys in 
the top right corner, as previously explained) 

c. Lower-case alphabetics and cursor control keys 

BASIC WORD ABBREVIATIONS 

You learned early in this book that the BASIC command PRINT could always 
be entered from the keyboard by the abbreviation ?, the question mark character. 
This was expanded by PET BASIC to the full word PRINT at the first and all subse- 
quent listings. 

Most of the BASIC commands, statements, and functions can similarly 
be abbreviated by the first two characters of the keyword, with the second 
character entered in shifted mode. With the standard character set, the sec- 
ond character appears as a graphic character. For example, the abbreviation for 
LIST appears as: 

L -, 

Select the Alternate Character Set with a POKE 59468,14 to have the second 
character appear as a lower-case letter, e.g.,: 
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This markedly improves the readability of the line being entered. PET BASIC 
makes no distinction between the two of them, however. Either one is expanded 
to the word LIST. 

Where a two-letter abbreviation is ambiguous (does St mean STEP or 
STOP?) the two-letter abbreviation is assigned to the most frequently used 
keyword, and the other word or words are either not abbreviated or are abbrevi- 
ated by the first three characters, the third entered in shifted mode. For 
STEP/STOP, STOP is abbreviated: 

st 

STEP is abbreviated: 

STe 

To abbreviate STEP, type unshifted S (capital S), unshifted T (capital T), and 
shifted E (lower-case e or graphic 3/4 TOP LINE HORIZONTAL H ). 

Following are a few sample input lines showing use of the two- and three- 
letter abbreviations wherever possible. All the abbreviated words are expanded to 
the full spelling when you list the programs. 



Po 


59468,14 — 




(after RETURN) Abbre 


10 


Le A=10 






20 


E=A An 14+F 


x(2) 




3D 


Di C(5) 






40 


Fo 1-0 TO 5 






50 


Re C(I) 






60 


He 






70 


Da 1,6,2,4, 


10,5,16 




80 


REs 






90 


En 






Li 

10 






Abbreviation for LIST 


LET Fl=10 




20 


B=fl AND 14+ 


•EXPC2> 




30 


DIM C<5> 






40 


FOR 1=0 TO 


5 




50 


READ CU> 






60 


NEXT 






70 


DATA 1.. 6,2, 


4, 10,5, 


16 


80 


RESTORE 






90 


END 






Po 






(before RETURN) Abbi 


jy not* , \i ■* 





After keying RETURN at the last POKE command line (return to Standard 
Character Set), you will see the abbreviations show with graphics as the shifted 
characters. 
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A list of reserved words and their abbreviations, if any, is given in Table 
5-2. Note that the expansions from abbreviations for the two functions SPC and 
TAB include the left parenthesis. This means that if you use the abbreviation for 
either of these, you must not type in the left parentheses. For example: 

10?Sp(5) 
expands to: 

10 PRINT SPC<<5) 

syntax error results from two 
left parentheses 

The correct key-in is: 

10? Sp5) 

This parenthesis rule applies only to the SPC and TAB functions and is a for- 
mat inconsistency you will have to watch for when abbreviating these function 
names. For all other functions, you key in both parenthesis. For example: 

10? Rn(l) 

expands to: 

10 PRINT RNIX1> 







Tab 


e 5-2. Keyword Abbreviations 






BASIC 
Keyword 


Abbreviation 


BASIC 
Keyword 


Abbreviation 


BASIC 
Keyword 


Abbreviation 


BASIC 
Keyword 


Abbreviation 


ABS 


Ab 


FRE 


Br 


NOT 


No 


SIN 


Si 


AND 


An 


GET 


Ge 


ON 


- 


SPC( 


Sp 


ASC 


As 


GET# 


- 


OPEN 


Op 


SQR 


Sq 


ATN 


At 


GOSUB 


GOs 


OR 


- 


ST 


-- 


CHR$ 


Ch 


GOTO 


GO 


PEEK 


Pe 


STEP 


STe 


CLOSE 


CLo 


IF 


- 


POKE 


Po 


STOP 


St 


CLR 


CI 


INPUT 


- 


POS 


- 


STR$ 


STr 


CMD 


Cm 


INPUT# 


In 


PRINT 


? 


SYS 


Sy 


CONT 


Co 


INT 


- 


PRINT# 


Pr 


TAB( 


Ta 


COS 


- 


LEFTS 


LEf 


READ 


Re 


TAN 


- 


DATA 


Da 


LEN 


- 


REM 


- 


THEN 


Th 


DEF 


De 


LET 


Le 


RESTORE 


REs 


Tl 


-- 


DIM 


Di 


LIST 


Li 


RETURN 


REt 


Tl$ 


-- 


END 


En 


LOAD 


Lo 


RIGHTS 


Ri 


TO 


- 


EXP 


Ex 


LOG 


-- 


RND 


Rn 


USR 


Us 


FN 


- 


MID$ 


Mi 


RUN 


Ru 


VAL 


Va 


FOR 


Fo 


NEW 


- 


SAVE 


Sa 


VERIFY 


Ve 






NEXT 


Ne 


SGN 


Sg 


WAIT 


Wa 
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SETTING THE CLOCK 




Another PET feature is the real-time clock. The PET clock keeps real 
time in a 24-hour cycle by hours, minutes, and seconds. The reserved string 

variable TIMES or Tl$ keeps track of the time. To set the clock, use the following 
format: 

TIME$ = "hhmmss" 

Where: hh is the hour between and 23. 

mm is the minutes between and 59. 
ss is the seconds between and 59. 

For hh. enter the hour of the day from 00 (1 2 am) to 23 (1 1 PM). The PET is on a 
24-hour cycle so that you can distinguish between AM and PM, unlike 12-hour 
clocks. The hours from 00 to 1 1 designate AM, and the hours from 1 2 to 23 desig- 
nate PM, returning to 00 at midnight. At midnight, when one 24-hour cycle ends 
and another begins, hh, mm, and ss are all equal to zero. 

When initializing TIMES to the actual time, type in a time a few seconds in 
the future. When that actual time is reached, press RETURN and the PET clock is 
set. 

TIME$="120150<CR> 

To retrieve the time any time after the initialization of TIME$. type the 
following in calculator or program mode: 

?TIME$ <CR> 
and the PET will display the time in hhmmss: 

?TIME$ 
120206 

The PET clock keeps time until the PET is turned off. The clock needs to 
be reset when the PET is powered up again. 
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The PET also keeps track of time in "jiffies". A "jiffy" is 1/60 of a sec- 
ond. Reserved numeric variable TIME, or Tl, is a numeric variable which is auto- 
matically incremented every 1/60 of a second. TIME is initialized to zero on start- 
up, and is reset back to zero after 51,839,999 jiffies. TIME$ (hhmmss) is a string 
variable that is generated from TIME. To ensure greater accuracy the PET 
keeps track of time in jiffies by incrementing every 1 /60 of a second, instead 
of once every second. When TIME$ is called to print the time in hours, 
minutes, and seconds, the memory converts jiffy time to real time. Notice 
that TIME$ and Tl$ are not the string conversion of TIME and Tl but are numbers 
representing real time calculated from jiffy time (TIME, Tl). The conversion is done 
as follows. Each second is divided into 60 jiffies. One minute is composed of 60 
seconds. One hour is made up of 60 minutes. In summary, one second is 60 jiffies, 
one minute is 3600 jiffies, and one hour is 216,000 jiffies, as illustrated below: 



Jiffy = 1 

= 60 x Jiffy 
= 60 Jiffies 



Second/60 = Jiffy 



Minute = 60 x Second 

= 60 x (60 Jiffies) 
= 3600 Jiffies 



Hour = 60 x Minute 

= 60 x (3600 Jiffies) 
= 216.000 Jiffies 




Minute/60 = Second/60 = Jiffy 



Hour/60 = Minute/60 = Second/60 = Jiffy 



The following equations convert jiffy time (J) into real time divided into 
hours (H), minutes (M), and seconds (S). We can write a program to print the time 
from jiffies. 



10 J=TI 

2© H=INT<J/216000> 



Calculate hours. 

Integer function takes only whole 

number. 



If any hours, subtract number of 
30 IF HO0 THEN J=J-H*21600 jiffies in one hour by H to leave 

remaining jiffies. 



40 M=INTOJ/3S00> 



Calculate minutes. 

Integer function takes only whole 

number. 



50 IF MO0 THEN J=J-M*3600 



60 S=INT<JV60> 



If any minutes, subtract number of 
jiffies in minutes by 7 to leave 
remaining jiffies. 

Calculate seconds. Integer function 
takes only whole number. 
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5 PRINT'TJREflL TIME" : PRINT : PRINT : 

19 J=TI 

15 T*=TIME* 

20 H=INT<J/21600> 

30 IF HO© THEN J=J-H*21600 

40 M= INT < J/3600 > 

50 IF MOB THEN J=J-M*3600 

60 S=INT<J/6@> 

70 H*=RIGHT*<STR*CH>,2.':' 

30 M*=R I GHT* < STR* < M > , 2 > 

90 S*=R I GHT* < STR* C S > , 2 > 

100 PRINT"H:M:S: "J H* .:":".; M* ; " : " ; S*, "TIME* : ".;T* 

110 PR I NT ".««««".; GOTO 10 

Statements 70 through 90 convert the numeric answers into proper string form 
for tidy printing. Statement 100 prints both the real time calculated from the pro- 
gram, and TIME$, the real time calculated automatically by the PET. Notice that 
the result is the same in both cases. 

To get an idea of jiffy speed and the conversion from the jiffy to the standard 
clock, type the following program into your PET. This program prints our the run- 
ning time of both TIMES and TIME (Tl): 

5 REM **RUNNING CLOCKS** 

10 PRINT "."REAL TIME: " = PRINT : PRINT "JIFFY TIME: » 

20 FOR 1=1 TO 235959 

30 PRINT"a";TRE<13>;TIME* 

40 FOR J=l TO 60 STEP 2 

50 PRINT"HWW"jTflB<12>;TI 

60 NEXT J 

70 NEXT I 

The FOR.. .NEXT loop to print TIME (Tl) is nested inside the FOR.. .NEXT loop 
in TIME$ because multiple jiffies are incremented and printed for each increment 
and print of a second shown in TIMES. 

20 FOR 1=1 TO 235959 

30 PRINT"*'; TABUS); TIME* 

40 FOR J=l TO 60 STEP 2 

50 PRINT"»(KI";TflB<12).:TI 

60 NEXT J 

70 NEXT I 

The FOR. ..NEXT loop for TIME increments by STEP 2 (every two jiffies) for 
two reasons: 1) the printing of 60 jiffies a second is too fast to read, and 2) the 
printing of each jiffy takes longer than its incrementations; this would delay the 
loop, so the printing of TIMES is slower than it should be. By incrementing and 
printing every other jiffy we can minimize this delay problem. Run this program 
and you will see that jiffies increment to 60 within each second. Run this program 
without STEP 2 in line 40 and see the time delay when printing TIMES. 

REAL TIME: 006704 
JIFFY TIME: 25500 
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Keeping time in jiffies is useful for timing program speed to test the 
efficiency of a program. A short program is listed below: 

IS PRINT"r»*KEVBOflRD TEST**" PRINT 

20 FOR 1=32 TO 12? 

3© PRINT CHR*<I>; 

48 NEXT I 

50 FOR J=161 TO 255 

6© PRINT CHR*<J>; 

70 NEXT J 

80 PRINT:PRINT:PRINT"**END TEST**" 

If we were to time the execution of this program, it would take three steps: 

1. Tl (or TIME$) is assigned to a variable constant near the start (or 
wherever you wish timing to begin). 

2. Tl (or TIME$) is reassigned to a different variable constant near the end 
(or wherever you wish timing to end). 

3. Subtract the first Tl assigned variable from the second. This will give 
you the amount of jiffy time it took to process the steps in between. 

The listing below shows the three added steps: 

Step 1 10 PRINT".~**KEVBOflRD TEST**" : PRINT 

15 fl=TI 

20 FOR 1=32 TO 127 

30 PRINT CHR*<I>; 

40 NEXT I 

58 FOR J=161 TO 255 

60 PRINT CHR*<J:>; 

70 NEXT J 

75 E=TI 
Step 2 80 PRINT PR I NT PR INT" **END TEST**" 
Step3 100 PRINT PRINT"TI = "; B-fi 

At line 15, variable A is set to the current value of Tl. 
15 fl=TI 



A = Tl [i600T762l 



A |b001762| 

Then, as the program is processed, Tl increments 60 times every second. At line 
75, B is set to the current value of Tl. 
75 B=TI 

BTI |bQ01953l 
B |ft001953] 
Line 100 subtracts the first value of Tl (A) from the second (B). 
100 PRINT: PRINT "TI=",B-fl 



B |b001953| 
- A lfeO0 1762] 
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The example shows that it took 191 jiffies to print the keyboard characters on the 
screen. Dividing jiffy time by 60 (the number of jiffies in a second): 

191 h-60 = 3.1833 

it took 3.1833 seconds or 191 jiffies to process the program. Below is a sample 
run of the program. 

**KEVBORRD TEST** 

! "#*X&" <>*+, -. /© 123456789 : ; <=>?@flBCDEFG 
H I JKLMNOPGRSTUVWXVZ C S 3 f*- ! " #*«& '<>*+,-./ 
6123456789 = i <=>?! ■T-J * fe»T 1 1- ■ H_ r-»-HI I f~~ 
_ i. *j«v-4,| _| K ^L.^AT-#\ /XD* »-H& Iff"* 

i --_j m fe*r i h ■ h_ r-HHi i r^-Li ■" tr 

**END TEST** 

TI = 191 

DIGITAL DISPLAY CLOCK 

The following program is a fun program. It is a variation of the PET digital 
clock using enlarged numbers through 9, created with the graphic characters. It 
prints out only the hour and minutes due to the size of the clock and the screen, 
but is very accurate. The program is long, as you can see, but it is made up almost 
entirely of PRINT statements to print the numbers. After keying in the program, 
watch it run. 



100 PRlHT'ZDSUMM m Ui" ; /<r , _ r/ 

110 S=INT<TIME/60> '°* /,_/ ^; , 7/ , 

120 M=INT<S/60> ^ 3r7f: Sc /tjT((*-fj/6*J 

130 H=INT<M/60> 

140 M=M-H*60 

150 T=H 

160 GOSUE500 

170 PRINT"IIW«a »M HftKW MM IIIIIIIB "; 

180 T=M 

190 GOSUB500 

200 PR INT "nil".: 

210 GOTO110 

500 U=T-10*INT<T/10> 

510 T=INT<T/10> 

520 D=T+1 

530 GOSUB600 

540 D=U+1 

550 GOSUB600 

560 RETURN 

600 ON D GOSUB 1000,1100, 1200, 1300, 1400,1500.. 1600, 

1700, 1300,1900 

610 RETURN 
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1600 

1001 
1602 
1003 
1004 
1005 
1 006 
1007 
1008 
1009 
1010 
1100 
1101 
1102 

1103 
1104 
1105 
1106 
1107 
1108 
1 1 09 

1110 
1 200 

1201 
1202 
1203 
1204 
1 205 
1206 
1207 
1208 
1209 
1210 

1300 

1301 
1 302 
1303 
1304 
1305 
1306 
1307 
1308 
1 309 
1310 

1400 

1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1 409 
1410 



sr 
a 
a 

a 

a 
a 



a 

EI 



PRINT" sr 

PRINT"sr 

PRINT" a ! 

PRINT" a ! 

PRINT" a ! 

PR I NT "a ! 

PRINT" a ! 

PR I NT "a ' 

PR I NT M ^a 

PRINT" ^a 

RETURN 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

RETURN 

PRINT" Si 

PRINT"sr 

pr i nt -a 

PRINT" a 

PRINT" 

PRINT" 

PRINT" 

PRINT" ST 

PRINT"ST 

PR I NT n a 

RETURN 

PRINT" ST 

PRINT"Sr 

PR I NT "a ! 

PRINT" 

PRINT" 

PRINT"! 

PRINT" 

PRINT"a ' 

PRINT"*a 



*a 
a 
a 

a 
a 

sr 



IlllllllM" ; 
MIIIIIIM" : 
illNIIIDS 

giiiHiura 

gHIIIIHUT 
aillNHM" 

iiuuiiM' 

illlllllM 



■thihuim" , 
w rrrrrrrrn" ; 



P 



inimir ; 

IlllllllM" ; 
IlllllllM" ; 

■■■■■■■■Da" .: 
IlllllllM" ; 

milliner ; 
IlllllllM"; 
IlllllllM" ; 
■illlllllM" ; 

i i IIIIHI-IH " .■ 



B 

isr 
ar 
sr i 



Ill IIIIIM" .; 

r^BJIIHIIIM" ; 
^a; : BllllllllBQ" ; 
sri ; aiiiiiiinr .; 

■riiiiiiilM" ; 

WT ] IlllllllM" ; 
W IlllllllM" ; 
r MMIIIIIM"; 
pillllllM" ; 
9 rrrrrrrm's 



"*B IlllllllM" J 
^aillllllM" ; 

- ^a nwNN" 
sr aiiiiniM" ; 

anillllllM" ; 
-4SIIIIIIIM" ; 



PRINT" 

RETURN 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT"sr 

PRINT" a 

PR I NT "a 

PR I NT "a 

PRINT" 

PRINT" 

RETURN 



^a IlllllllM 

m isr nniiiiN" . 

tllllllHr; 

^a w :iiiixiiij" , 



sr m 
ar m 

sr 



a h 



a 

a 



IlllllllM" ; 
IlllllllM" .; 
IlllllllM" .; 
IlllllllM" .; 
! IlllllllM" . 

a i iiiihiim" . 

SlilllllH" .■ 

aiiiiiiiiM" ; 
IlllllllM" ; 
.TTTTTTTTl". 
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1500 

1501 
1502 
1503 
1594 
1505 
1506 
1507 
1508 
1509 
1510 

1600 

1601 
1602 
1 603 
1604 
1605 
1606 
1607 
160S 
1609 
1610 

1700 

1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 

1800 

1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 

1900 

1901 
1902 
1903 
1904 
1 905 
1 9@6 
1907 
1 908 
1 SQ3 
1910 



PRfWT 4 *-* 

PRINT'S 

PRINT":* 

PRINT" fl; i I 

PRINT" a I : 

PRINT" ! 

PRINT" 

PR I NT ""3. ! " 

PRINT"*S| 

print" ^a 

RETURN I | 
PRINT" Sf, 
PRINT" sr' 
PRINT" a 
PR I NT "a 
PR I NT "a 

print" a : I 

PRINT" a ; ! 
PR I NT "a i \ 
PR I NT '"^a '■ 
PRINT" ^a 
RETURN 
PR I NT "a 
PRINT" a 
PRINT" 
PRINT" | 
PRINT" | 
PRINT" 
PRINT"! 
PRINT"' J 
PRINT" 
PRINT" 
RETURN 
PRINT" 
PRINT 
PRINT 
PRINT 
PRINT 
PR I NT "ST 
PRINT"* ! 
PRINT" a ' 
PR I NT n ^a 
PRINT" "*a 
RETURN 
PRINT" sr 
PR I NT "ST. 
PR I NT n a ; ! 
PRINT"*. I ' 
PR I NT "^a 



n n mmrnmnamwi 

M ailllllllti" : 

B ^ IIINIIIM 11 ; 

*m IIIIIIIIM"; 

■ ; j : ^BIMIMIM" ; 

i ha : Mhiiiim" ; 

a bmmmmkt .; 

^S *r HHMMHKJ" . 

| I : ■nilllllKO"; 
IN r : T 1 1 1 1 1 1 1 J" :■ 



rl 



1H ■■■■■■■■KT ; 

"BHHHHna" i 
^S ■»■■■■■■!«" :■ 

i IIIIIIIIM 

^ IHHIIIM"; 

"^■■■■■■■■Kr ; 
"»a : BIIIIHIM 11 ; 
W 9IIIIIIII[«" ; 

ar|IIIHIl[«" ■ 
W rTTTTTTTTr J 



i iliiiiiin 1 ; 

: aiiiiiiini"; 

r . piiiiillM" ; 

\sr\ nimiiiM" ■, 

ST- \ grj ■■■■■■■■HJ" ; 

sr H ' ■■■■■■■■w>"j 

a i W ! : ■■■■■■■MM"; 
S i Hi IIIIIIURI' ; 

a: a i ■■■■■■■■»"; 
as : 1 1 1 1 1 1 1 1 J" , 



•sr 

■a 

'a 



■■■■■■■■HI" ; 
■■■■■■■■IH".: 

bmhmhkt , 

„ , -JHIIIIMti" j 

■rMHMHMIM"; 

^H*HHHU)" .; 

■** i annular , 

ar ■ »■■■■■■■«" , 

■riiiiHlliPj" ; 

ar | rrrrrrrrn" . 



^a 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT" 

RETURN 



"*a 

i 

a ^ 

^a 



■■■■■■■■Ri" ; 

■■■■■■■■DP" .: 

smmhhkj" 
sr aiiiiiiiM" 
■IIIIIIIM 1 ' ; 

aHHHHUT ; 
i SIIIIHIM" .; 

sr iiiiuuu 1 ' 

■■■■■■DO" ; 
: 1 1 1 1 1 1 1 1 1" 
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POKE TO THE SCREEN 

The programming of individual characters anywhere on the screen is most 
effectively done with the POKE statement. POKE allows a character to be 
placed anywhere on the screen by POKEing its character value into a screen 
location in memory, which POKEs it onto the screen. 

Screen 



Memory 



Poke a * 
in Location X 
on the Screen 








x|* I 



■v 



location X 
The PET screen is like a grid of 1000 squares; 40 columns by 25 rows: 

columns 

40 



I 
















































































































































QK1 ._ - 







1000 

One character may be displayed in each square. All 1000 screen locations are 
assigned an address and space in memory. Memory screen space begins at 
address 32768 for square 1 (row 1, column 1) and ends at address 33767 for 
square 1000 (row 25, column 40). Memory address 32768 is screen location 
(1,1), address 32769 is screen location (1,2), etc. Figure 5-12 shows the correla- 
tion between PET screen locations and their corresponding memory space and 
addresses. 

CALCULATING THE SCREEN ADDRESS 

To find the screen address in memory for each screen location, manual 
counting of each square is unnecessary. The following equation is a simpler and 
more efficient method to calculate the memory address: 

Memory Address of Screen Location = 32768+(column-1)+(40 (row-)) 

Enter the column and row numbers of any screen position into the equation to 
find its memory address. To demonstrate, enter the values 5 and 3 to find the 
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-32768 
32769 
32770 
32771 
32772 
32773 
32774 
'32775 
k 32776 



Contents of row 1, col. 1 
Contents of row 1, col. 2 



Contents of row 1, col. 8 



32852 Contents of row 3, col. 5 



Figure 5-12. Screen Locations and Memory Addresses 
memory address for the screen location at column 5, row 3 (5,3): 

5 



= 32768+(COL-1)+(40«(ROW-D) 
= 32768+(5-1)+(40-(3-U) 
= 32768+4+ (40-2) 
= 32768+4+80 
= 32852 - 
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The memory address for screen location (5,3) is 32852. 
This equation makes it possible to POKE characters to the screen with- 
out knowing any more than the column and row number of the location to be 
POKEd. Recall the format of the POKE statement: 

POKE A.X 
where: 

A is the screen address. 

X is the character or variable to be POKEd into A. 
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By replacing A with this equation, the PET will calculate the screen address itself. 

POKE32768+(COL-)+(40-ROW-1),X 
POKE A .X 

For instance, if COL (C) and ROW (R) were input as 5,3, and X as * then a 
spade would be POKEd at screen location (3,5), address 32852. 

IB INPUT C,R,X 

26 POKE 32768+ < C-1> + 'C 40* <R-i::0, X 

= 32768+(COL-1)+(40-(ROW-1)).X 

= 32768+(5-1)+(40-(3-1)).X 

= 32768+4+(40-2).X 

= 32768+4+80.X 

= 32852.X 



.1 



Although the above equation is useful when you do not know the exact 
screen address, you should not always incorporate that long equation into your 
programs. It is much neater and more concise if you use the aforementioned for- 
mula to calculate the screen address outside of the program, and then use the 
screen address using POKE inside of the program: 

POKE 32852.X 

or 
A=32852 
POKE A.X 

Variables are acceptable in the POKE command, as long as the variables stay 
within the proper limits: 



1. POKE 32768+A.X 



2. POKE A.X 



where A is a number between and 999 inclusive 

(32768+999=33767). 

where A is a number between 32768 and 33767 

inclusive. 



Using variables to represent the screen address is practicable when POKE- 
ing to a repeating sequence of screen spaces. For example, the two programs 
below POKE the value of X ten spaces apart across the screen. This is a much 
more efficient method of printing than programming several PRINT statements 
and cursor movements. 



10 (=1=32763 

20 POKE 1=1, X 

30 fi=fl+10 

40 IF f=K=33767 



or: 10 POKE 32768.. X 
20 fl=fl+10 
30 POKE 32768+fi,X 
GOTO 20 40 IF fl<=1000 GOTO 
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GENERATING RANDOM NUMBERS 

Random numbers are generated on the PET using an algorithm on a 
starting number, or seed, to begin a sequence of numbers. The same seed al- 
ways gives the same sequence of numbers. 

When the PET is powered up, the initial seed is always the same so that 
the random number sequence is likewise always the same. The display below 
shows a typical first five numbers that will appear on referencing the RANDOM 
function RND(arg) after power-up. 

#*# COMMODORE BASIC ### 

716? BVTES FREE 

RERBV. 

FOR 1 = 1 TO 5-7 RNB<D:NEXT 
RUN 

. 380969862 

. 355265655 

.659512252 

.883285178 

.546991144 
REflBV. 

You can have the same sequence generated each time (this is very 
helpful in debugging situations) by starting from the same seed, or you can 
program the PET to generate random numbers from different sequences by 
giving different seeds. 
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To generate the same sequence, select a negative number and all RND 
with this number before beginning to fetch the random numbers. The following 
program prints the first five random numbers for seeds -1, -2, -3,... -100. 



10 FOR I=-l TO -1@@ STEP -1 

20 X=RNIKi:> : PRINT I 

30 FOR ,T=1 TO 5 

40 PRINT RND a? 

56 NEXT J : PRINT: FOR «=0 TO 1000 NEXT K 

60 NEXT I 

RUN 

-1 

. 735030872 

. 354388983 

. 747932106 

. 16562769 

. 62863439 



.271319872 
. 14311354 
.511223365 
. 367604656 
. 148456903 



-3 

.235981913 
.365113894 
.905614705 
.916307965 
. 987458745 



Note here that the "1" in RND(1) on line 40 can be any positive, non-zero 
number; it doesn't matter which one. On line 50, the PRINT is to give a blank line; 
the FOR K loop is to pause between number sets. 

Suppose you select -40 as a seed; your program might have statements 
like the following: 

10 X=RNIK-40::' : REM START SEED 

28 fl=RND<l>: REM FETCH A RANDOM NUMBER 



150 MX=RNDa.J: REM FETCH ANOTHER RANDOM NUMBER 

You probably don't have any use for the seed value assigned to X, but an 
assignment statement is the easiest way to include a legitimate reference for RND 
(-arg). Each time statement 10 is executed, it will restart the random number 
sequence at the same beginning. 
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To generate different random numbers at each RND use, you need to have 
some way of generating a random seed. (You can't call RND to doit!) A convenient 
way of getting a pseudo-random seed on the PET is to use the current jiffy count, 
Tl: 

10 X=RND<-TI>: REM START SEED 

Here you will get a different random sequence started each time statement 
10 is executed. 

A more nearly pure random seed* can be obtained by using RND (-RND(O)). 
For example: 

10 X=RND<-RND<0>> : REM START SEED 

Here again you will get a different random sequence started each time statement 
10 is executed. 

In the programs that follow, -Tl is used, as it is compatible with both old and 
new ROMs. If you have the new ROMs, you can use-RND(O) in place of -Tl. 

You will have to convert the random number, which is returned as a 
number between and 1 , to whatever range you want the random number to 
be in. Say you want numbers from 1 to 6 (as in one die number of a dice game). 
You will need to multiply the random number by 6: 
6*RND<1> 

This gives a floating point number in a range just greater than but just less than 
6 (0<n<6). Add 1 to get a number in the range 1 <n<7: 

6*RND<1>+1 

Then convert the number to integer, which discards any fractional part of a num- 
ber, returning the number to the range 1 to 6 but in integer form: 

INT<6*RHD<1>+1> 

or 

fi.M=6*RNrKi::' + l 

The general cases for converting the RND fraction to whole number 
ranges are shown below. Note that with the INT function, these formulas handle 
numbers in the integer range ±32767. 

INT((n+1)*RND(D) range to n 

INT(n-RND(1)+1) range 1 ton 

INT((n-m+1) ; RND(1)+m range m to n 

The formulas for ranges beginning at or 1 are just simplified versions 
derived directly from the general case of range m to n: 

where m=0 INT((n-m+1)-RND(1)+m) 

INT((n-0+1)*RND(1)+0) 
INT((n+1).RND(D) as shown above 

where m=1 INT((n-m+1)«RND(1)+m) 

INT(n-1 + 1)«RND(1)+1) 
INT(n.RND(1)+1) as shown above 

'according to the PET manufacturer 
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The-1 to-100 display program shown earlier, which displayed five numbers 
in the range to 1 for each seed, can be changed so that the random numbers 
returned by RND will be put into a a selected range. The program below is the 
same as the previous one except that line 40 is changed to put the random num- 
bers into the range 1 to 6; the loop at line 30 has a TO index of 1 to print the first 
ten numbers of each series. 

10 FOR I=-l TO -i@0 STEP -1 
20 X=RND<i:> : PRINT I 
30 FOR J=l TO 10 
40 PRINT INTC6*RNIK1>+1> 
50 NEXT J PRINT: FOR K =0 TO 1000 NEXT K 
6© NEXT I 
RUN 
-1 
5 



1 
4 
5 
6 
1 
1 
4 



1 
4 
3 
1 

5 
4 



€■ 
6 
6 
6 
5 
1 
5 

As in the original program, the sequence for -1 will always be the same, the 
sequence for —2 will always be the same, etc. To adjust this program to start at a 
random seed, change I in line 20 to -Tl (or, for the new ROMs, -RND(O) may be 
used). 

The program below shows the use of-TI to generate a random seed. It is the 
same genre of program as before, but it has been modified to calculate numbers 
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in the range m to n (as shown by the previous formula). In this program, the values 
of m and n are set in line 10 for a given program run. Note that these values can be 
negative. In the following example, the printout is an unending sequence of ran- 
dom numbers between-50 and +50. (Press STOP to end the program.) A different 
sequence of numbers will be printed each time the program runs, since -Tl pro- 
vides a random seed. 

Two other changes have been made for the previous program: 1) the X 
value returned from RND(-TI) is printed instead of the Tl value, and 2) the need for 
the K-variable wait loop is eliminated by printing sets of numbers across the line 
in continuous line format, which slows the display scrolling compared to single- 
column printing along the left-hand side of the screen. 

10 M=-50N=50 

20 X=RNDOTI> : PRINT X 

30 FOR 1=1 TO 8 

40 €■•/.= < N-M+ 1 > *RND < 1 > +M 

50 PRINT C'/.i NEXT I 

60 PRINT -GOTO 30 

RUN 

8. 276330S5E-06 
-14 9 -34 -35 -47 -44 28 31 

29 -8 -36 -28 -42 -28 15 14 

7 -13 3 -8 8 41 19 -43 



35 


12 


24 -7 -7 -21 -47 1 


-32 


-49 


7 -49 28 -22 -17 -24 


-12 


y 


27 1 11 9-18 35 


48 


49 


1 34 -46 -29 -43 29 


-18 


5 - 


-30 2 8 -23 -13 -23 


48 


-15 


-12 -45 26 44 -25 2 


-9 


4 27 50 33 -16 -43 -15 


29 


2@ 


17 43-18 -48 -38 24 


-16 


43 


-50 36 -38 5 11 25 


-30 


6 - 


-25 -47 32 10 42 -21 


-47 


-38 


-28 -8 16 -20 42 -4 


-34 


36 


-17 27-8 -49 -6 -35 


-19 


19 


-35 48 -42 36 -25 2 


-49 


37 


47 38 -20 -25 32 -50 


-5 - 


-35 - 


-35 17 -41 36 -19 4 


33 


-20 


45 -7 48 -4 -33 -10 


1 


27 - 


-39 -14 -38 -6 4 10 


-5 


17 


2 49 -40 -5 32 


-50 


32 


-24 -37 -38 22 -13 -27 


-24 


-30 


35 10 6 16 -50 49 


-49 


50 


43 38 -21 47 -43 28 


32 


-35 


-18 -5 27 -46 -14 23 


-49 


-45 


27 7 -35 1 46 -25 


-8 


20 - 


■8 -12 -46 -31 -17 -18 


-47 


47 


-49 13 47 17 40 -13 


-40 


48 


-41 -33 5 -14 -46 45 


-29 


-37 


22 17 42 33 -31 49 



8 -4 36 37 11 18 29 25 
0-1 2-16 32 -29 -31 33 
-9 -41 -4 47 12 -22 9 -43 
-40 32 15 32 -50 3-9 19 
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To illustrate different number ranges, change the values of M and N in line 
10. For example, make M=1 and N=6; this will generate an unending sequence 
of random numbers between 1 and 6. 

A quick scan of the display above shows that numbers repeat within the 
first 100 generated. That is. every 101 numbers will not sort from -50 to +50 with 
every number present and no duplications. This is fine in, say, a dice game where 
you take the rolls as they come. For other random number uses, however, you 
may need to develop random numbers in a certain range where every number 
is accounted for and there are no duplications. An example is sorting a deck 
of cards. Here you need to pick a card, and when that card has been picked it can- 
not be picked again during the same deal. 

The program below shows one way to program shuffling a deck of cards 

on the PET. It fills a 52-element table D%* with the numbers 1 through 52 in a 

random sequence. The cards can be pegged to the random numbers in any way, 

such as: 

A=1. 2=2, 3=3,.... Q=12. K=13 
Spades=0, Hearts=13.'Diamonds=26. Clubs=42 

With this scheme the Ace of Spades = 1 +0=1 , the Queen of Spades=12+0=12, 
The Three of Hearts=3+13=16, etc. 

In the shuffle program, a 52-element flag table FL keeps track of whether a 
card has been picked or not. PRINT statements are inserted to print out the seed 
value, followed by the numbers in a continuous-line format. Note that exactly 52 
numbers are printed out and that no number is repeated. Each program run will 
produce a new random sequence. 

10 DIM FL<52>,DJJ<52> 

20 X=RND<-TI>: PRINT x 

30 FOR 1=1 TO 52 

40 C"i=52*RNIKl> + l 

50 IF FL<C."OO0 T GOTO 46 

60 IT/. < I ) =CK •• FL <'CK ) = 1 





70 PRINT C'/.i 






80 NEXT I 






RUN 






1.1 85866 13E-05 






48 40 13 37 


50 43 46 31 49 44 




23 38 25 11 


9 35 32 36 24 41 




26 5 6 1 45 


10 21 14 42 20 15 




34 18 52 47 


7 16 8 19 33 36 4 




17 3 22 27 


29 28 39 2 51 12 




RUN 






1.01154728E-06 






14 35 52 50 


26 48 27 36 34 25 




18 20 41 33 


39 7 46 24 23 28 1 




9 3 12 43 2 


31 44 4 1 32 37 3 




48 22 45 4i 


8 42 49 16 11 6 10 




29 9 51 17 


8 15 38 5 21 13 


'Element is not used. 
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Note that the program runs more slowly as it nears the 52nd number and is 
especially slow on the last card; this is because it has to fetch more and more ran- 
dom numbers to find one that has not already been picked. A simple routine such 
as this has much room for improvement, of course. It can be speeded up just by 
finding the last number in the program from the table rather than randomly. 

A further example of RND use illustrates the difference in having a faster 
selection routine. This program also handles random numbers larger than the 
integer range allows. 

The following program is a modification of program BLANKET, the display 
program developed in Chapter 3. Instead of printing the display character in con- 
tinuous-line format, this program fills the screen by randomly POKEing the 
character into the 1000 positions of the screen. 

Here is the first version. 

10 REM ******* BLANKET ******* 

20 REM RANDOM DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

90 FRINT"HIT A KEY OR <R> TO END".: 

100 GET C$:IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "Tl"i :REM CLEAR SCREEN 

120 X=RNrK-Ti:> REM START NEW SEED 

125 C=<ASC<C*>AND12S>/2 OR <ASC<:C*>AND63> 

127 A=1000*RNDO>+3276S 

130 POKE A,C -REM DISPLAY CHAR 

140 GET D*:IF D*="" GOTO 127 

150 C*=D* 

160 GOTO 105 

178 END 

The program is the standard BLANKET program through line 1 10, inputting 
a new character and clearing the screen. Line 120 stores a new seed in prepara- 
tion for a random display sequence on the screen. Line 125 converts C$ to its 
equivalent POKE number as in BLANKET Program 10 (see Appendix C). Line 127 
calculates a random screen address in the range 32768 to 33767; using the RND 
range formula with m=32768 and n=33767, line 127 was derived as follows: 

(n-m + 1)*RND(1)+m Range formula 

(33767-32768+1)-RND(1)+32768 as used in line 127 

= 100ORND(1)+32768 

Neither the INT function nor an integer variable (which would have been 
A%) can be used, because the screen addresses begin just beyond the maximum 
integer value of 32767. Fortunately the POKE function, which is where the screen 
addresses will be used, simply discards any fractional portion of a real number ad- 
dress presented to it. (For other applications when you are dealing with random 
numbers outside the integer range, you will have to check that the floating point 
equivalent provides the intended range.) 
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The first version of the program above randomly fills the screen with the 
keyed-in character. It does this by simply POKEing to random screen locations. It 
may POKE many times to the same location when other locations are not yet 
filled, and it continues to POKE even after the screen is filled until a new character 

is keyed in. 

When the program is run, about half the screen positions quickly fill with 
the character. Then character placement slows down more and more until at the 
end, when the screen is almost filled, and remaining positions are filled very 
slowly. It takes about three minutes to completely fill the screen with this version 
of the program. 

The program is operating at the same speed throughout, but it doesn't get 
much work done towards the end because many of the positions that it POKEs to 
are already filled. The program appears to slow down because a POKE (or PRINT) 
of a character over the same character has no visible effect. 

The program can be speeded up a good deal by eliminating the superfluous 
POKEs to screen positions that are already filled. A new version of program 
BLANKET does this. 

Rather than calculating a number in the same range all the time and discard- 
ing, or in this case re-POKEing, the duplicate numbers, the new program 
decreases the range of numbers generated to correspond with the number of 
items left to operate on. It does this by keeping track of the screen positions re- 
maining to be filled in a table and generating a random number within the range 
of table indexes yet to be POKEd to. The POKE address itself is gotten from the 
contents at the table index. 

5 REM RANDOM VERSION 2 

18 REM ******* BLANKET ******* 

20 REM RANDOM DISPLAV OF ONE 

3@ REM CHARACTER ENTERED FROM THE 

40 REM KEVBOARD 

58 REM ******************************* 

78 DIM T<999> 

88 gosue 280 rem initialize table 

98 print "hit a rev or <r> to end"; 

100 get c*:if c*="" goto 100 

185 if c*=chr*<13:> goto 170 

118 print'tr.: :rem clear screen 

128 x=rnb<-ti> rem start hew seed 

125 c=casc<c*>and12s:»/2 or < asc < c* > and63 > 

126 for n=999 to & step -1 

127 ak=<n+i>*rnbo> rem pick an elem 

128 Fi=T<fi'/.> +32768 -REM FORM POKE ADDR 

1 29 tp=t ■: a;-: > ■ t < a;-; > =t < tor < n > =tp ■ rem swap elements 

138 POKE A,C : REM DISPLAV CHAR 
148 NEXT N 
160 GOTO 100 
178 END 

199 REM **SUBR TO INITIALIZE TABLE** 

200 FOR 1=0 TO 999:T<I>=I 'NEXT 
218 RETURN 
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In this program, lines 5 through 50 are the standard header. The Table T. 
used to hold the 1000 screen position indicators, is dimensioned in line 70. 

At line 80 an initialization subroutine is called that places the numbers 
through 999 into corresponding elements of Table T. T(0) will contain 0, T(1) will 
contain 1, ... T(999) will contain 999. The elements would not have to be filled 
with consecutive numbers since they are to be picked randomly, but this is the 
easiest way to program the fill loop. In fact, the table will be in order only the first 
time the program is run after loading. Lnes 90 through 125 are exactly the same 
as in the earlier version. 

Lines 126 through 140 form a FOR.. .NEXT loop for filling the 1000 screen 
locations with the keyed-in character. Line 127 picks a random table index 
A%from the remaining unfilled range of to N. The formula (N+1)*RND(1) is taken 
from the boxed formulas given earlier. Line 128 forms the POKE address A as the 
sum of the T table element whose index was picked by line 12*7, plus the begin- 
ning screen memory address of 32768. Line 129 exchanges the picked table ele- 
ment T(A%) with the highest active table element T(N) via a temporary location 
TP. Line 1 30 displays the character at the random screen location. The NEXT N at 
line 140 decrements the pointer N so that the used screen address just swapped 
into T(N) is not picked again during the current program run. 

5 REM RANDOM VERSION 2ft 

IS REM ******* BLANKET ******* 

20 REM RANDOM DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 

4© REM KEYBOARD 

50 REM ******************************* 

70 DIM TK249>,T2<249::'.. T3<249> , T4C24SO 

75 T=4 :REM NUMBER OF TABLES 

76 N=250 :REM NO OF ELEMENTS 

89 GOSUB 200 ^REM INITIALIZE TABLES 

90 PRINT "HIT A KEY OR <R> TO END".: 
95 N 1 =N : N2=H : N3=N : N4=N 

100 GET C*=IF C*="" GOTO ISO 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "73"; :REM CLEAR SCREEN 

120 X=RND<-TI> -REM START NEW SEED 

125 C=<fiSC<C*>RND128>/2 OR CASC<C*>AND63> 

126 FOR L=1TO1000 ■ REM 1 FOR EACH SPOT 

127 TJi=T*RND<l> + l = REM PICK A TABLE 

128 ON T/. GOSUB 300.. 400, 500, 600 = REM GO PICK AN ELEMENT 
130 POKE A,C :REM DISPLAY CHAR 

140 NEXT L 
160 GOTO 95 
170 END 

199 REM **SUBR TO INITIALIZE TABLES** 

200 FOR 1=0 TO N-l :T1CI.') = I -NEXT 

2 1 FOR I =@ TO N- 1 : T2 < I > = I +250 ■• NEXT 
220 FOR 1=0 TO N-l -T3 <I > =1+500: NEXT 
230 FOR I =0 TO N- 1 : T4 < I > = I +75© : NEXT 
240 RETURN 
299 REM **SUBROLlTINE FOR TABLE Tl** 
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300 N1=N1-1 

385 REM IF EMPTV, 00 TO ANOTHER TfiBLE 

310 IF HK0 THEN ON I NT C 3*RND < 1 > + 1 > OOTO 400,500,600 

320 flK=<Hl+l>*RND<l> : REM PICK AH ELEM 

330 A=T1 < AX > +32768 'REM FORM POKE ADDR 

340 TF-T 1 < AX >■ T 1 < AX .:■ =T 1 < N 1 > : T 1 C N 1 > =TP : REM SWAP ELEMENTS 

350 RETURN 

399 REM **SUEROUTINE FOR TABLE T2#* 

400 N2=N2-1 

410 IF N2<0 THEN ON I NT < 3*RND < 1 > + 1 > GOTO 300,500,600 

420 AX= < H2+ 1 :> *RND < 1 > 

430 A=T2<: AX > +32768 

440 TP=T2 < AX > : T2 < AX > =T2 ■:.' N2 > ■ T2 < N2 > =TP 

450 RETURN 

499 REM **SUBROUTINE FOR TABLE T3** 

500 N3=N3-1 

510 IF N3<0 THEN ON I NT (. 3*RNH < 1 > + 1 > OOTO 300,400,600 

520 AX= ■:: N3+ 1 > *RNB < 1 > 

530 fl=T3< AX > +32768 

540 TP=T3<AX> :T3<AX>=T3<N3> :T3CH3>=TP 

550 RETURN 

599 REM **SUBROUTINE FOR TfiBLE T4** 

600 N4=N4-1 

610 IF N4C"0 THEN ON I NT < 3*RNB < 1 > + 1 > GOTO 300,400,500 

620 flX= < N4+ 1 > *RND < 1 > 

630 fi=T4c: AX > +32768 

g40 TP=T4 < fiX .:• : T4 < fiX > =T4 C N4 > : T4 < N4 .':■ =TP 

650 RETURN 

This program is not much longer than the first version, yet it is a good deal 
faster. It fills the screen in approximately 45 seconds (compared to a minimum of 
three minutes for the first version). 

A remaining difficulty, which you will have already noticed if you ran the 
program, is that there is a noticeable wait while the initialization subroutine runs, 
before the HIT A KEY message is displayed. 
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A final modification to the program will show how this kind of program ac- 
tivity can be hidden in a screen display. The following program intersperses dis- 
playing a header on the screen with the initialization procedure. 

5 REM RANDOM VERSION 3 

10 REM ******* BLANKET ******* 

20 REM RANDOM DISPLBV OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

70 DIM T < 999>, H<1 21 > 

75 FOR 1=0 TO 121: READ H<.'I .':■ : NEXT 

76 PR I NT "D" REM CLEAR SCREEN 
SO GOSUB 280 :REM INITIALIZE TABLE 
90 PRINT"HIT A KEV OR <R> TO END".; 
100 GET C*IF C*="" GOTO 100 

105 IF C*=CHR*<13) GOTO 170 

110 PR I NT" 3".; REM CLEAR SCREEN 

120 X=RND<-TI.> :REM START NEW SEED 

125 C=<ASC<C*>AND128>/2 OR c; ASC <.' C* .':■ AND63 ) 

126 FOR N=999 TO STEP -1 

127 flW=<N+l>*RND<D = REM PICK AN ELEM 

128 A=T < AS ;• +32768 : REM FORM POKE ADDR 

1 29 TP=T (. A?-; > : T < AK > =T < N > : T < N > =TP : REM SWAP ELEMENTS 

130 POKE A,C -REM DISPLAV CHAR 
140 NEXT N 

160 GOTO 100 
170 END 

199 REM **SUBR TO INITIALIZE TABLE** 

200 FOR 1=0 TO 999 STEP 8 

210 FOR J=I TO 1+7 :T<J>=J: NEXT 

220 IF K>121 GOTO 250 

230 POKE HOO+33133, 160 

240 K=K+1 

250 NEXT I 

260 RETURN 

300 DATA 28,171,7,165,245,0, 223 , 249 ,54,97,16,19,262,1 09 

, 160, 183, 167, 99, 248, 14 
3 1 DATA 267 , 264 , 1 85 , 1 20 , 1 89 ,17, 269 , 29 , 1 72 , 247 , 9 , 1 45 , 26 

5 , 204 , 1 62 , 25 , 26 1 , 266 , 1 37 
320 DATA 25 1,45, 207 , 243 , 1 , 257 , 26 , 22 , 85 , 254 , 225 , 242 , 1 49 

, 20 ,11,18, 205 ,263,1 29 
330 DATA 200 , 1 03 , 229 ,27,15,12,21,174, 268 , 1 39 , 1 25 ,101 , 20 

2, 24, 5, 141,1 , 132, 169, 63 
340 DATA 212, 4, 8, 164, 219, 256, 181 , 253, 23, 6, 214, 3, 187, 255 

, 1 31 , 1 77, 83, 1 79, 240, 246 
350 DATA 87, 143,241,209,82,211,89,258,69,59, 134,80, 147, 

94 , 2 , 1 3 , 259 , 260 , 250 , 227 
36© DATA 244,252,49,40 



307 



The header is made up of the word RANDOM as blanks outlined by reverse 
blanks and situated in the middle of the screen. The display is created by clearing 
the screen and then POKEing the reverse blanks to the appropriate screen posi- 
tions. There are 122 reverse blanks used in the display. The display is shown 
below with some of the screen positions relative to the first reverse blank shown. 

Screen address 32768 (home position) 



/ 


/ screen address 33133 
12 / 


29 


f- 








1 








_l 
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j 








/ 








1 




40 








80 








120 




■■ ■■■■ ■■■ ■ ■ ■■ 1 




160 
200 
740 








■■■ ■ ■ ■ ■ ■ ■ ■■■■ 

■■■ 


1 ■■■ ■ ■ ■ ■■■■■■■! 
■■■■■■■{ 
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In the program, at line 70 a second table, H, is dimensioned to hold the rela- 
tive positions of the 122 reverse blanks. Line 75 fills Table H with the relative posi- 
tion numbers from DATA statements at lines 30 through 360. The order of the 
numbers in the DATA statements is random but fixed; the header appears to fill 
randomly to the viewer, but it in fact fills the same way each time. (This is in con- 
trast to the random filling of the 1000 screen positions, which is different each 
time.) The initialization routine at lines 200 through 260 fills Table T as before, but 
rather than doing so continuously it breaks every eight elements to POKE a 
reverse blank from Table H to the screen for the header (1000-^122=8 plus a 
small remainder). The header POKE address is formed as the sum of the screen 
position relative to the first reverse blank and the actual memory address of the 
first reverse blank (33133, where 32768 is the home position address). The 
reverse blank value for POKEing is 160, as shown in Appendix A. 

You can see by running this amended version of the program that there is no 
longer any apparent delay during program initialization. 



302 



CHAPTER 6 



System Information 



ORGANIZATION OF THE PET SYSTEM 

The organization of the PET system is shown in Figure 6-1. The PET is 
built around the 6502 microprocessor. The display screen, cassette tape 
unit, and keyboard are physical devices that have been described in Chapter 
2. The three external I/O ports are interfaced through the 2K block of 
memory-mapped I/O. On 4K/8K PETs, the cassette tape unit connects directly to 
the I/O block, and the Cassette Tape Interface is available for connecting a second 
cassette unit. On 16K/32K PETs the cassette tape unit is connected through the 
Cassette Tape Interface; additional tape units, if any are desired, must be inter- 
faced through the IEEE 488 port. The six ROM, RAM, and I/O blocks are allocated 
from the total 65K memory space available on the PET. 

The memory allocation by 4K blocks is shown in Table 6-1. Each portion of 
the memory is described in more detail in the following text. 
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Figure 6-1. PET Block Diagram 



Table 6-1. PET Memory Allocation by 4K Blocks 





Memory 


Start Address 




Block 






Description 


Type 


Decimal 


Hexadecimal 





RAM 





0000 


Working storage, start of text 


1 


RAM 


4096 


1000 


Text and variable storage (8K only) 


2 


— 


8192 


2000 \ 




3 


— 


12288 


3000 1 




4 


— 


16384 


4000 I 


Expansion RAM 


5 


— 


20480 


5000 ( 




6 


— 


24576 


6000 1 




7 


— 


28672 


7000/ 




8 


RAM 


32768 


8000 


Screen Memory 


9 


— 


36864 


9000) 




10 


— 


40960 


A000 > 


Expansion ROM 


11 


— 


45056 


B000 ' 




12 


ROM 


49152 


cooo 


BASIC (principally statement interpreter) 


13 


ROM 


53248 


D000 


BASIC (principally math package) 


14 


ROM 


57344 


E000 


Screen Editor (2K) 




I/O 


59392 


E800 


I/O Memory (2K) 


15 


ROM 


61440 


F000 


Operating System (OS) 
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Addresses 0-8191: 8K RAM (Storage and User Program) 

The first block of RAM is allocated to working storage, the stack, tape 
buffers, and storage of user programs. The amount of active RAM may be 4K 

(addresses 0-4095), 8K (addresses 0-8191), 16K (addresses 0-16384), or 32K 
(addresses 0-32767). The first 1K allocation (to 1024) is fixed; the larger the 
memory size, the more space is available in the user program area. 



256 



512 



634 



826 



1024 



(4K) 4095 

(8K) 8191 

(16K) 16383 

(32K) 32767 



Basic 
Working 
Storage 



Tape Read 
Working 
Storage 



BASIC 
Stack 



OS 
Working 
Storage 



Tape Buffer 
#1 



Tape Buffer 
#2 



Text 



Variables 
and Arrays 



Strings 



1 



Available for user if no 
console tape I/O 

Available for user if no 
second cassette 



User program area 



Locations through 255 are used by the BASIC interpreter as working 
storage locations. This area is detailed in Table 6-2. 
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Locations 256 through 51 1 are comprised mainly of the BASIC Stack. A por- 
tion of the area beginning at location 256 and proceeding upward is used by the 
Tape Read routine for error correction and by BASIC as an expansion buffer. The 
stack begins at location 511 and proceeds downward. Storage is allocated 
dynamically as needed by BASIC and the hardware. An OUT OF MEMORY error 
occurs if the stack pointer reaches the end of available space in this area. 

Locations 512 through 633 are used by the OS as working storage locations. 
This area is detailed in Table 6-2. 

Locations 634 through 825 form a 1 92-byte tape buffer for the console tape 
cassette. Locations 826 through 1023 form a second 1 92-byte tape buffer for the 
optional second cassette unit. User-written assembly language programs can be 
stored in tape buffer #2 if there is no second cassette used on the system. 

Locations 1024 through the end of available RAM are used for storage of the 
user program and variables. The program begins at location 1024 and is stored 
upward toward the end of memory. Variable storage begins after the end of the 
program. Array storage begins at the end of variable storage. Strings are stored 
beginning at the end of memory and working downward. An OUT OF MEMORY 
error occurs if an upgoing pointer meets the downgoing pointer. 



Addresses 8192-32767: Expansion RAM 24K 

Memory addresses 81 92 through 32767 are allocated for expansion of RAM 
to 32K. 



8192 



12288 



16384 



20480 



24576 



28672 



32767 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



Expansion 
RAM 



4K 
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Each PET has 32K of RAM address space, allocated between active RAM 



and Expansion RAM, as follows: 
Active RAM 
4K (0-4095) 
8K (0-8191) 
16K (0-1638) 



Expansion RAM 
28K (4096-32767) 
24K (8191-32767) 



Addresses 32768-36863: 4K Video RAM 

The first thousand locations of this block, from addresses 32768 through 
33767, are allocated to screen memory. A POKE to any of these locations displays 
the character in the appropriate screen position. 



32768 



33792 



34816 



35840 



36863 



TV RAM 



Images of 
TV RAM 



Images of 
TV RAM 



Images of 
TV RAM 



1K 



Addresses 36864-49151: Expansion ROM 12K 

Memory addresses 36864 through 49151 are allocated for optional expan- 
sion of ROM to 26K. 



36864 



40960 



45056 



49151 



Expansion 
ROM 



Expansion 
ROM 



Expansion 
ROM 



4K 
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Addresses 49152-65535: 14K ROM and 2K I/O 

Locations 49152 through 59391 and locations 61440 through 65535 com- 
prise the BASIC interpreter and OS diagnostics. Memory-mapped I/O locations 
are from 59392 through 61439. 

49152 



10K 



59392 
61440 

65535 
Location 65535 is the end of PET memory. 




MEMORY MAP 

The detailed PET memory map is shown in Table 6-2. 

The table shows the memory address in decimal and hexadecimal. The 
decimal value is the PEEK/POKE address (0 to 65535). 

A sample value in decimal and its hexadecimal equivalent are also given. 
With the exception of pointers, these sample values are typical of what you might 
see if you PEEKed at the location; these are all byte values, in the range to 255 
(O-FF16) A pointer is a two-byte address, in the range to 65535 (0- 
FFFF16). that is stored in the PET in low-byte, high-byte order. All two-byte 
locations in the table contain values stored in low-high order. Consider the first 
such location in the table: 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


1-2 


0001-0002 


826 


033A 


User address jump vector 



If you PEEKed at these locations, the 16-bit address would be presented in two 
parts, first the low-order byte: 

?PEEK(1) 
58 

and then the high-order byte: 

?PEEK(2) 
3 
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To convert the two values to the appropriate address, you can convert them 
separately to hexadecimal and then convert the hexadecimal address to decimal: 

Low High Address 

58io=3Ai6 310=0316 — 033Aie=826io 

Note carefully that the sample value 033A means that the first memory byte 
= 3A and the second (higher) memory byte = 03. 

Or you can multiply the high-order byte by 256 and add it to the low-order 
byte. The following is a PEEK statement that will do this for you: 

?PEEK(1)+256*PEEK(2) 
826 

Conversely, to convert a 16-bit memory address into two separate bytes for 
POKEing (in low-byte, high-byte order), you can convert the decimal value to hex- 
adecimal and then convert the separated byte digit pairs to decimal, e.g., to con- 
vert the address 59409: 

High Low 

59409-|0=E811-|6 — E8-|6=232-|0 and 1 1 16 = 1 7io 

Or you can convert using decimal arithmetic by first dividing the address value by 
256 and discarding any fractional remainder: 

High 

59409/256=232.06641 =232 

Then subtract "High"*256 from the original value (59409 in this case) to get the 
remainder, which is the low-order byte value: 

232*256=59392 

Low 
59409 - 59392= 1 7 

(Of course, if you do the division by longhand, the remainder is directly available.) 
For a block of byte locations, only the first byte value is shown in the table. 
The column labeled Description in the table gives a short description of the 
location's use. There are multiple uses for some locations, in which case the prim- 
ary one is indicated. 

While not exhaustive, the table illustrates the overall makeup of the PET 
memory. 
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PET BASIC INTERPRETER 

The PET BASIC interpreter executes a user program by decoding each 
source line stored in memory in a compacted form. When you enter a line 
from the keyboard, the PET Line Editor has control, allowing you to do any 
editing of the line until you press the RETURN key. Program lines are stored in 
memory in ascending line number order. When the RETURN key is struck, the 
BASIC interpreter searches memory for the same line number. If there is one, it 
replaces the current line with the new line. If there isn't one, the next higher line 
number is encountered. The BASIC interpreter then inserts the new line into 
memory and moves the rest of the program up. 

Program lines are stored at the beginning of the user program area of memo- 
ry, which starts at memory location 1024. Variables are stored in memory above 
the program lines, and arrays are stored above the variables. All three areas begin 
at lower addresses and build upwards to higher addresses. Strings are stored 
beginning at the top of memory and work downwards. The BASIC interpreter 
builds all four areas, moving them as necessary and adjusting pointers for inser- 
tions and deletions. Eight pairs of memory locations contain pointers to the divi- 
sion points in the user program area of memory. These are shown in Figure 6-2. 
(They are also listed in Table 6-2.) 

The formats in which BASIC statements, variables, arrays, and strings are 
stored in their respective areas are discussed next. 



310 



Pointer address 



Typical Values 



Start of program 
(40. 41) Start of text 



(62. 63) DATA statement pointer 



(42. 43) Start of variables 



(44, 45) End of variables 



(46, 47) End of arrays 



(48. 49) End of strings 



(50. 51) Top of memory 



BASIC 
Statements 



Variables 



Arrays 



Strings 



1024 
1025 

1879 



1946 



2072 



2231 



8172 (8K system) 



8191 (8K system) 



Figure 6-2. Principal Pointers in User Program Area 
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BASIC STATEMENT STORAGE 

BASIC statements are stored in the format shown in Figure 6-3. 

Memory location 1 024 always contains a zero byte. 

The next two bytes contain a pointer to the beginning of the first BASIC 
statement. The pointer, like all addresses in the PET, is stored in low-byte, high- 
byte order. The pointer is a link to the memory address of the next link. A link ad- 
dress of zero denotes the end of the text; i.e., there are no more links and no 
more statements. BASIC statements are stored in order of ascending line num- 
bers, even though there are links to the next statement. Links are used to quickly 
search through line numbers. 

Following the link address is the line number of the statement, stored in 
low-byte, high-byte order. Line numbers go from 1 (stored as 1 and 0) to 63999 
(stored as 255 and 249). 

After the line number, the BASIC statement text begins. Keywords are 
comprised of reserved words (listed in Table 3-2) and operators (listed in Ta- 
ble 3-4). Reserved word and logical operator keywords are stored in a com- 
pressed format. A one-byte token is used to represent a keyword. All keywords 
are encoded such that the high-order bit is set to 1. Other elements of the BASIC 
text are represented by their stored ASCII code. Other elements are comprised of 
constants, variable and array names, and special symbols other than operators 
and are coded just as they appear in the original BASIC statement. Table 6-3 
shows the byte codes for all values from to 255 that may appear in the 
compressed BASIC text. Codes are interpreted according to this table ex- 
cept after an odd number of double quotation marks enclosing a character 
string; within a character string the standard ASCII codes prevail (see Ap- 
pendix A). 



1024 1025102610271028 1029 



| | | Link | | Line* | Compressed BASIC text | | | 



| Link | | Line* | | Compressed BASIC text j | | 
| Link j Line* | | Compressed BASIC text | | | 



end of 
statement 
is flagged 
by zero 
byte 



End of text is indicated by 
two link bytes of zero 



Figure 6-3. BASIC Statement Storage 
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Table 6-3. PET BASIC Keyword Codes 



Code 


Character/ 


Code 


Character/ 


Code 


Character/ 


Code 


Character/ 


(decimal) 


Keyword 


(decimal) 


Keyword 


(decimal) 


Keyword 


(decimal) 


Keyword 





End of line 


66 


B 


133 


INPUT 


169 


STEP 


1-31 


Unused 


67 


C 


134 


DIM 


170 


+ 


32 


space 


68 


D 


135 


READ 


171 


— 


33 


! 


69 


E 


136 


LET 


172 


* 


34 




70 


F 


137 


GOTO 


173 


/ 


35 


# 


71 


G 


138 


RUN 


174 


+ 


36 


$ 


72 


H 


139 


IF 


175 


AND 


37 


% 


73 


I 


140 


RESTORE 


176 


OR 


38 


& 


74 


J 


141 


GOSUB 


177 


> 


39 




75 


K 


142 


RETURN 


178 


= 


40 


( 


76 


L 


143 


REM 


179 


< 


41 


) 


77 


M 


144 


STOP 


180 


SGN 


42 




78 


N 


145 


ON 


181 


INT 


43 


+ 


79 


O 


146 


WAIT 


182 


ABS 


44 




80 


P 


147 


LOAD 


183 


USR 


45 





81 


Q 


148 


SAVE 


184 


FRE 


46 




82 


R 


149 


VERIFY 


185 


POS 


47 


/ 


83 


S 


150 


DEF 


186 


SQR 


48 





84 


T 


151 


POKE 


187 


RND 


49 


1 


85 


U 


152 


PRINT* 


188 


LOG 


50 


2 


86 


V 


153 


PRINT 


189 


EXP 


51 


3 


87 


w 


154 


CONT 


190 


COS 


52 


4 


88 


X 


155 


LIST 


191 


SIN 


53 


5 


89 


Y 


156 


CLR 


192 


TAN 


54 


6 


90 


z 


157 


CMD 


193 


ATN 


55 


7 


91 


[ 


158 


SYS 


194 


PEEK 


56 


8 


92 


\ 


159 


OPEN 


195 


LEN 


57 


9 


93 


] 


160 


CLOSE 


196 


STR$ 


58 




94 


♦ 


161 


GET 


197 


VAL 


59 




95 




162 


NEW 


198 


ASC 


60 


< 


96-127 


Unused 


163 


TAB( 


199 


CHR$ 


61 


_ 


128 


END 


164 


TO 


200 


LEFT$ 


62 


> 


129 


FOR 


165 


FN 


201 


RIGHTS 


63 


? 


130 


NEXT 


166 


SPC( 


202 


MID$ 


64 


@ 


131 


DATA 


167 


THEN 


203-254 


Unused 


65 


A 


132 


INPUT* 


168 


NOT 


255 


7T 



Note that the left parenthesis is stored as part of the one-byte token for the 
functions TAB and SPC, but that the other functions use a separate byte for this 
symbol. For example, the line 

10 IF INT(A)<5 THEN PRINT TAB(X) 

would be coded as the following bytes (in decimal): 



Link 



10 



139 



32 



181 



40 



65 



41 



179 53 



32 



167 



32 



153 



32 



163 



41 



Line 
number 



< 5 



INT 



THEN PRINT TAB( 
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The operators (the symbols +-'/} < = > as well as the words AND. OR. and 
NOT) are given keyword codes (high-order bit set) since they "drive" the BASIC 
interpreter just as reserved words do (e.g.. 179 for <). The standard ASCII codes 
for these symbols (e.g.. 60 for <) appear only in the text of a string. 

Spaces in the source line are stored except for the space between the line 
number and first keyword. This space is supplied on LISTing when a stored state- 
ment is expanded to its original form. You can conserve memory storage space 
by eliminating blanks (but this makes the program harder to read). You can 
also conserve space by putting more than one statement on a line, since the 
five bytes of link, line number, and end byte are stored only once. 

The size of each statement is variable and is terminated by a byte of 
zero to indicate the end of the statement. (A value of zero anywhere within the 
text is stored as 48.) Zero byte flags are used by the BASIC interpreter in execut- 
ing a program when it goes through the compressed BASIC text from left to right 
picking out keywords and performing the indicated operations. A zero byte indi- 
cates the end of the statement; the next four bytes are the link and the line num- 
ber of the next statement. In contrast to searching through the text and using 
byte indicators to locate the next statement, links are used when searching the 
statements for their line numbers. Three consecutive bytes of zero (the last state- 
ment's byte followed by two zero link bytes) flag the end of text when executing 
the program. 

A program is stored onto cassette tape in the same format as shown in 
Figure 6-3 for memory storage. Thus, it is basically "dumped" onto tape in a 
continuous block, including link addresses and end bytes. 

The use of tokens in place of keywords is not unique to the PET, but there is 
no standard coding from one interpreter to another. Thus, a BASIC source pro- 
gram SAVEd on tape by PET BASIC is not compatible with other BASICs, nor 
can BASIC programs generated on other (non-PET) machines normally be 
loaded by the PET BASIC interpreter. 
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USER PROGRAM AREA INITIALIZATION 

On power-up, the user program area of memory is initialized to "+" charac- 
ters (code 17Q) except for the first few beginning locations at 1024 on. Location 
1024 is zero. The initial link in locations 1025 and 1026 is zero. The pointers into 
the user area are initialized as shown in Figure 6-4. 

As lines are entered and edited and new programs loaded, the contents 
of memory locations throughout the user program area change. They change, 
however, only as necessary for the current program. The user area is not con- 
tinuously reinitialized (to "+" or any other code). It is the pointers into the user 
area that determine the extents of the current program, if any. The action of a 
NEW command is simply to readjust the pointers to the initial values shown in 
Figure 6-4. A CLR does the same thing except that it adjusts the variable and array 
pointers from the end of the program rather than the start of the program as NEW 
does. (In fact, if you have accidentally cleared the program or variables, you 
can reinstate them by "reading" through the user program area as needed 
and restoring the pointer values.) 
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Pointer Address 

(62, 63) DATA statement pointer 

Start of program 

(40. 41) Start of text 

(42, 43) Start of variables ■ 

(44, 45) Start of arrays 

(46, 47) Start of free space 



Memory 
Location 



(48, 49) End of strings • 
(50, 51) Top of memory 




8191 (8K system) 



Figure 6-4. User Program Area on Power-Up 
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DATA FORMATS 



Variables 



Variables are stored in the Variable Area of user program memory (see 
Figure 6-2). These are simple (unsubscripted) variables; arrays are stored in 
a separate area. The variables may be floating point, integer, or string and 
are freely intermixed in the Variable Area. Each variable, regardless of its 
type, occupies seven bytes of memory. The first two bytes contain the variable 
name, and the remaining five bytes further define the variable. Variables are en- 
tered into the variable table as they are encountered during execution of the user 
program. A variable that is not in the table is assumed to have a value of zero for 
numeric variables or null for a string variable. 

Floating Point Variable Format 



Byte 



1 


2 


3 


4 5 6 7 


1st 
char 


2nd 
char 
or 


Expo- 
nent 


Jill 

+j Fraction 
i 



Byte 1 contains the first character of the variable name. Byte 2 con- 
tains the second character of the variable name or, if there is no second 
character, byte 2 contains a zero. The characters are stored in standard ASCII 
codes (see Appendix A). For example, the name A is stored as 65, whereas the 
name AO is stored as 65. 48. A floating point variable is denoted by variable 
names having stored ASCII values of 90 or below. 

Bytes 3 through 7 contain the value of the floating point variable in standard 
normalized, excess 128 format. Byte 3 contains the exponent in excess 128 
format. The exponent determines the magnitude of the number. In excess 128 
format, 128 is added to the true exponent (after normalization of the significant 
digits) so that the smallest exponent representation contains all zeros. The largest 
exponent representable contains all ones. A true exponent of zero is represented 
by an exponent value of 128 (0+128). Excess 128 format eliminates having to 
consider a sign in the exponent. 

Examples: 



Exponent 


Approximate Value 


255 


10^° (maximum exponent) 


162 


1010 


127 


10" 1 


2 


10 -38 





1 (^"(minimum exponent — number 




is zero) 
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Bytes 4 through 7 contain the significant digits of the number. The num- 
ber is normalized such that the binary point is to the immediate left of the first 
non-zero binary digit. That is. it is represented as a fraction in the form: 



r 



first digit always 1 



1 x x X...X x x 



t ~r 



Binary Remaining 15 
point binary digits 

The binary point is always assumed and is not stored. Further, the most sig- 
nificant 1 digit is always assumed (since it is always 1) and is not stored either. 
Its bit position is used to hold the sign of the number, 0=positive and 
1 =negative. To normalize a number, the point is moved to the left and the expo- 
nent decremented (smaller numbers), or the point is moved to the right and the 
exponent incremented (larger numbers), until the number is a fraction in the form 
shown above. The number zero is generally represented by all zeros in bytes 3 
through 7, but the fraction may contain roundoff errors; an exponent of zero is 
sufficient to make the number zero. 

Some examples of floating point number representations stored in the 
Variable Area follow. 1 E+38 has the maximum exponent of 255. This decreases 
down to zero as the numbers decrease to zero. Fractional floating point numbers 
(e.g., .5, .01, .006) have exponents below 129. For negative numbers, the expo- 
nent increases from to 255 as the absolute value of the numbers increases. In 
byte 4 the high-order bit is the sign bit. In this column, decimal numbers < 127 
have bit 7=0 (positive numbers), and decimal numbers higher than this have bit 
7=1 (negative numbers). 
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Byte: 


3 


4 


5 


6 


7 


Number 


Exponent 


+MSB 


Fraction 


LSB 


1E+38 


255 


22 


118 


153 


83 


1E+10 


162 


21 


2 


249 





1000 


138 


122 











1 


129 








00 




.01 


122 


35 


215 


10 


62 


1E-4 


115 


81 


183 


23 


90 


1E 


62 


60 


229 


8 


101 


1E-39 





32 





























-1 


129 


128 











-1000 


138 


250 











-1E+10 


162 


149 


2 


249 





-1E+38 


255 


150 


118 


153 


83 



The following short program allows you to examine floating point 
representations for any numbers. Line 10 inputs a number that you enter from 
the keyboard, terminating with a RETURN key. Line 20 points to the beginning of 
variables +2 to go past the two-byte variable name. Line 30 prints the number 
that was input, followed by the five bytes PEEKed from the variable table. The pro- 
gram is continuous; to end, enter a null line (RETURN key only). 

10 INPUT A 

20 X=PEEK(43)*256+PEEK(42)+2 

30 PRINT A;"=";PEEK(X);PEEK(X+1);PEEK(X+2);PEEK(X+3);PEEK(X+4) 

40 GOTO 10 

Integer Variable Format 



Byte: 



1 



1st 
char 
+ 128 



2nd 

char 

+ 128 

or 128 



Value 
High Low 



Byte 1 contains the first character of the variable name shifted (+128). 
Byte 2 contains the second character of the variable name shifted (+128), or 
if there is no second character, byte 2 contains 1 28. An integer variable is 
denoted by variable names having ASCII values of 1 76 or higher. The % nota- 
tion is dropped from the variable name. Bytes 3 and 4 contain the value of 
the integer in high-byte, low-byte o rder. (Note that this value is not an address 
and does not conform to the reverse standard for pointers). The value is stored in 
twos complement format so that the high-order bit (bit 7 of byte 3) represents 
the sign, 0=positive, and 1=negative. The remaining three bytes are not used 
and are set to zeros. 

The following are some examples of integer representations stored in 
the Variable Area. You can use the same 4-line program to look at integer 
number representations after changing A to A% in lines 10 and 30. 
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Byte: 


3 


4 


Number 






32767 


127 


255 (256-127+255 


32766 


127 


254 


14000 


54 


176 


256 


1 





255 
1 






255 

1 


-1 


255 


255 (FFFF 16 )+1 = 1 


-2 


255 


254 


-32766 


128 


2 


-32767 


1281 


1 



• 32767) 



String Variable Format 



Byte: 



1 


2 


3 


4 5 


6 


7 


1st 
char 


2nd 

char 

+ 128 

or 128 


Char 
count 


Pointer 
High I Low 









Byte 1 contains the first character of the variable name. Byte 2 con- 
tains the second character of the variable name shifted*(+1 28), or if there is 
no second character, the second byte contains 128. This combination of ASCII 
ranges denotes a string variable entry. The $ notation is dropped from the variable 
name. Byte 3 contains a count of the number of characters in the string (1 to 
255). This is the value fetched for the LEN function. Bytes 4 and 5 contain a 
pointer to the beginning of the string itself, stored elsewhere in memory. 
This pointer is in the standard 6502s low-byte, high-byte order. The remain- 
ing two bytes are not used and are set to zeros. 

String shortage is optimized by using the copy of the string already in 
memory if there is one. If there is not, a string is created and stored in the 
String Area in upper core. A few examples are given below. 

Constants 

Constants are stored in the BASIC statement itself. They are not placed into 
a separate area of memory, and they are not stored in the Variable Area. Floating 
point and integer and string constants are stored as ASCII character source 
codes, as described previously under BASIC Statement Storage. For example, the 
line: 

10 PRINT "HI!" 
is stored entirely in the BASIC Statement Area, in the form: 



Link 


10 





153 


32 


34 


72 


73 


33 


34 






Line 



number | 
N 

T 



H I 



320 



whereas the statement 



10 A$="HI!":PRINT A$ 



is stored in two areas. The original statement is stored in the BASIC Statement 
Area: 



Link 


10 





65 


36 1 78 34 


72 


73 


33 


34 


58 153 32 


65 


36 


° 


~7jn7~ A $ - " H I I " : P A $ 

number 1 


























N 

T 











In addition, when this statement is executed the following entry is made in the 
Variable Area: 



Byte: 



(42.43)- 



1 




2 


3 


4 


5 


6 


7 


65 


128 


3 


9 


4 





•1 


A 


. 


L 


eng 

of 

3trin 


th 

g 


. 







(T| (String) 



No A-256+9 

2nd =1033 

char 

The string in the BASIC Statement Area is pointed to (beginning at memory loca- 
tion 1033 in this program) rather than storing a copy of it inuppercore. However, 
when you create a new string, as in: 

20 B$=A$+"HO" 

the BASIC Program Area entry is: 



Link 


20 





66 


36 


178 


65 


36 


170 


34 


72 


79 


34 






Line 
number 



B $ - A 



H 



and the entry in the Variable Area is: 

Byte: 12 3 4 5 6 7 



(42. 43) 



128 5 251 



31 







B 



'r 1 r 

No Length 
2nd of 
char string 



31-256+251 = 
8187 
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This time the pointer addresses a location in upper core (8187 in this program) 
that contains the string: 



8188 8190 
3187 I 8189 I 



1191 



72 73 33 72 79 



H I ! H 



Array Storage Format 

Arrays are stored in the Array Area of user program memory (see Figure 
6-2). Arrays may be floating point, integer, or string and are stored in the 
order in which they are created by the program. The type of array is dis- 
tinguished by the way in which the two-character array name is stored, 
exactly the same as for variable names. An array is stored with a header 
followed by the elements of the array, in the general form: 



Header 



Element 



Element 1 



Element n 



(Elements are stored in reverse order for strings.) 

All types of arrays have the same header format. The header contains 
seven bytes plus two bytes for each array dimension beyond 1 . 



ARRAY HEADER 



Byte: 1 



1st 
char 



2nd 
char 



Total bytes 
Low High 



Number of 
dimensions 



(bytes as needed) 



Next-to-last 



Low 



Last 

dimension 

size 

l 



High 



dimension .'. 
size 



I 



First ^ 
dimension I 
size .. .' 



Low ; High! Low J_ _H|ghj 



Like floating point variables, floating point array elements each have 
five bytes. However, for integers the unused three bytes, and for strings the 
unused two bytes, are dropped for array elements. 
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In the array header, bytes 1 and 2 contain the array name. Bytes 3 and 4 
contain a count of the number of memory locations that the array occupies. 

For example, A(0) would occupy 12 bytes: 7 for the header and 5 for the single 
element. The byte count is stored in low-byte, high-byte order. Byte 5 contains 
a count of the number of dimensions in the array. As examples, A(5) has one 
dimension (byte 5 = 1) and A(10,10,2) has three dimensions (byte 5 = 3). For a 
one-dimensional array (or vector), bytes 6 and 7 contain the dimension 
size — that is, the number specified between parentheses in the DIM statement 
+ 1. For example, the dimension size = 61 for DIM A (60), = 101 for DIM A(100), 
etc. If the array does not appear in a Dimension statement, the dimension size 
defaults to 1 1. The dimension size is stored in low-byte, high-byte order. For a 
multiple dimension array, the header contains additional bytes in which are 
stored all the dimension sizes. Two additional bytes are used for each addi- 
tional dimension. The dimension sizes are stored in reverse order from the 
order in which they appear in the DIM statement. For example, for DIM A(10,5) 
the dimension sizes are stored as bytes 6,7=6 and bytes 8,9=11. For DIM X(2,1,3) 
the dimension sizes are stored as bytes 6,7=4, bytes 8,9=2 and bytes 10,11=3. 
The formats of array elements for each type of array are shown below. 
They are represented exactly as described for variables (without the unused 
bytes for integers and strings). 



Floating Point Array Element Format 

Byte: 1 2 3 4 



Exponent 



i — r 



Fraction 



Integer Array Element Format 

Byte: 1 2 







Value 






High I Low 




String Array Element Format 






Byte: 


1 2 3 




Char 
count 


Pointer 
High Low 
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The size of the header may be calculated as five bytes plus two times 
the number of dimensions in the array. The total size of the elements may be 
calculated as the number of bytes per element (5 for floating point, 2 for 
integer, 3 for string) times the number of elements (the dimensions multi- 
plied together + 1). The total size of the array, header plus elements, is 
stored in byte 4 of the array header. 

The following is a program for viewing sample Array Area entries: 

10 DIM A (5), B%(2,2), C$(10):REM SAMPLE ARRAYS 

20 FOR l=0TO 5: A(I)=I:NEXT 

30 FOR l=0 TO 2:F0R J=0 TO 2:B%(J,I) = 100+3*I+J:NEXT J.I 

40 FOR l=0 TO 1O:C$(l)=CHR$(ASC("A")+0:NEXT 

50 X=PEEK(45)*256+PEEK(44):REM POINT TO ARRAY AREA 

60 Y=PEEK(47)*256+PEEK(46):REM END OF ARRAYS 

70 FOR l=X TO Y 

80 PRINT I. PEEK(I) 

90 GET D$:IF D$=""GOTO 90 

100 NEXT 
Each of the three types of arrays is dimensioned. Line 20 fills the floating 
point array A with the numbers through 5. Line 30 fills the integer array B% with 
the numbers 100 through 108. Line 40 fills the character array C$ with the single 
strings A through K. Lines 50 and 60 fetch the pointers to the end of the Variable 
Area and the end of the Array Area. Lines 70 to 1 00 print the address followed by 
the byte value in that address within the Array Area. Printing shops at each 
memory location; to print the next location, press any key (e.g., the RETURN key). 
You will need to locate the beginning of the arrays by the sequence for the first 
array shown below (the pointer addresses the end variable). The memory loca- 
tions will appear as shown below. 



Array Area 








































1 2 3 4 5 6 7 




A(5) 


65 





37 





1 





6 

















129 


















A No"-^^^No. A(0) = A(1) = 1 




2nd 


of 






char 


dimensions 






Array 


size = No 


of 






37 bytes elements 






130 














13C 


64 











131 














131 


32 












A(2) = 2 



A (3) = 3 



A (4) = 4 



A(5) = 5 
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1. 


2 


3 


4 


5 


6 


7 


8 


9 


















194128 


27 





2 





3 





3 





100 





101 





102 





103 


B 
128 


No 
2nc 

cha 


r 


No. 

of 

dimensions 


' 




1 


B%(0.0) B%(1.0) B%(2.0) B%(0,1) 
= 100 =101 =102 =103 



Array Last First 

size = dimension dimension 
27 bytes size = 3 size = 3 



104 105 106 107 10: 



B%(1,1) B%(2.1) B%(0,2) B%(1.2) B%(2,2) 
= 104 =105 =106 =107 =108 



12 3 4 5 



C$110) 67 128 40 1 11 1 255 31 1 254 31 1 253 31 1 252 31 



C No" - 
2nd 
char 



~ ^No.' ■ 

of 
dimensions 



Array 

size = 

40 bytes 



C$00) 



'C$(9) 



C$(8) 



C$(7) 



No. of 256*31 

elements +255=8191 



I' 


251 


31 


1 


250 


31 


1 


249| 31 


1 


248 


31 


1 


247 


31 


1 


246 


31 


1 


24E 31 



C$(6) 



C$(5) 



C$(4) 



C$(3) 



C$(2) 



C$0) 



c$(or 



256-31+245 
=8181 



String Area 



8182 8184 8186 8188 8190 
8181 | 8183 | 8185 | 8187 | 8189 | 8191 



65 66 67 68 69 70 71 72 73 74 75 
B C D E F G H I 
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Character Representation 

ASCII (American Standard Code for Information Interchange) is a 
widely used code for representing character data. It is nominally a 7-bit 
code, allowing 128 characters (7Fi 6 =128 10 ) to be represented. The stan- 
dard ASCII 7-bit character set is shown in Table 6-4. Bits are numbered from 
(least significant bit) to 6 (most significant bit): 



7 


6 


5 


4 3 2 


1 





•4 Bit number 








ASCII code 
i i 






(7-bit ASCII) 



The first 32 codes are reserved for non-printable control characters, intended for 
message formatting and print format control. 

On the PET, characters are stored in ASCII format but in anextended 
version using eight bits. With eight bits normally available, rather than just 
seven, up to 255 characters can be represented. Within compressed BASIC 
text the 8-bit character codes are interpreted as shown in Table 6-3, where 
the eighth bit on signifies a keyword. Elsewhere in main memory the 8-bit 
character codes are interpreted as shown in Appendix A. 



326 



The screen memory, occupying memory locations 32768 through 
33767, uses a different ASCII character representation from main memory. 
It is a 7-bit code as shown in Figure 6-5. The eighth bit is a normal'reverse 
field indicator. Note that the characters are arranged such that bits through 
5 represent one key on the PET keyboard, with bit 6=0 being the unshifted 
character and bit 6=1 being the shifted character of the same key: 
Table 6-4. ASCII Standard 7-Bit Codes 







6 
















1 


1 


1 


1 




Blt , 5' 








1 




1 








1 


1 


3 


2 


♦ 1 04 





1 







1 





1 





1 














NUL 


DLE 


SP 







(3 


p 




P 











1 


SOH 


DC1 


! 




1 


A 


Q 


a 


q 








1 





STX 


DC2 






2 


B 


R 


b 


r 








1 


1 


ETX 


DC3 


# 




3 


C 


S 


c 


s 





1 








EOT 


DC4 


$ 




4 


D 


T 


d 


t 





1 





1 


ENQ 


NAK 


% 




5 


E 


U 


e 


u 





1 


1 





ACK 


SYN 


& 




6 


F 


V 


f 


V 





1 


1 


1 


BEL 


ETB 






7 


G 


w 


g 


w 













BS 


CAN 


( 




8 


H 


X 


h 


X 










1 


HT 


EM 


) 




9 


I 


Y 


i 


Y 







1 





LF 


SUB 


• 






J 


z 


i 


z 







1 


1 


VT 


ESC 


+ 






K 


[ 


k 


( 




1 








FF 


FS 






< 


L 


\ 


I 


I 




1 





1 


CR 


GS 


- 




= 


M 


] 


m 


1 




1 


1 





SO 


RS 






> 


N 


A 


n 




1 


1 


1 


SI 


US 


/ 




? 





— 





DEL 




NUL r- 


viull 






DC1 


Device control 1 








SOH S 


>tart of heading 






DC2 


Device control 2 








STX J 


Start of text 






DC3 


Device control 3 








ETX E 


.nd of text 






DC4 


Device control 4 








EOT E 


nd of transmissi 


on 




NAK 


Negative acknowledge 






ENQ E 


.nquiry 






STN 


Synchronous idle 








ACK / 


Acknowledge 






ETB 


End of transmissior 


block 






BEL E 


Jell, or alarm 






CAN 


Cancel 








BS E 


Jackspace 






EM 


End of medium 








HT r 


Horizontal tabula 


ion 




SUB 


Substitute 








LF L 


.ine feed 






ESC 


Escape 








VT \ 


/ertical tabulatio 


n 




FS 


File separator 








FF F 


: orm feed 






GS 


Group separator 








CR ( 


Carriage return 






RS 


Record separator 








SO 5 


5hift out 






US 


Unit separator 








SI 5 


Shift in 






SP 


Space 








DLE [ 


3ata line escape 






DEL 


Delete 
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Table 6-5. PET Screen Memory 7-Bit Codes 



B fal 


w 


u 


a 


a 


l 


1 


1 


1 


1 t»l 


w 


t) 


l 


l 


t) 


B 


1 


1 


1 4 I 


u 


1 


t> 


l 


fcj 


1 





1 


3<ilU 1 


















UWWfcJ 1 


s 


H 




o 


- 


1 




r 


wuui i 


H 


U 


! 


l 


* 


• 


1 


a. 


uuiu l 


K 


K 


'■ 


^ 


1 


_ 


■ 


T 


own 1 


c 


S 


« 


3 


— 


<¥ 




-1 


UlUW 1 


L» 


1 


$ 


4 


-' 


1 


_ 


1 


U1U1 1 


L 


U 


X 


t> 




r 


1 


1 


BllU 1 


f 


V 


bt 


b 


— 


X 


u 


1 


triii i 


*o 


H 




v 


1 


U 


1 




lwwa i 


h 


X 


( 


o 


1 


* 


Vtt 


*~" 


lwwl I 


i 


V 


; 


y 


-1 


1 


r 


_ 


lUlfcl 1 


j 


£ 


* 




>- 


♦ 


i 


J 


lt> n I 


K 


L 


+ 


* 


J 


+ 


h 


■ 


11WU 1 


L 


\ 


, 


<. 


l_ 


5 


■ 


k. 


11U1 1 


ii 


J 


- 


= 


\ 


1 


L 


_l 


Hit) i 


N 


1 


. 


> 


/ 


IT 


H 


h> 


mi i 





<- 


/ 


V 


1 


> 


- 


'. 



7 


6 


5 


4 


3 


2 


1 


^ 


| 














I 


n 


Key code 







Bit number 
(Screen Code) 

0=unshifted character 
1=shifted character 
0=normal field 
1 =reverse field 



The complete character set for screen memory is shown in Appendix A under the 
PEEK/POKE column. 
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The screen memory ASCII code may be derived from the main PET 
ASCII code by moving bit 7 of the main code over into bit 6 and dropping the 
previous value of bit 6. The examples below illustrate the four cases of a or 1 in 
bit 7 going into a or 1 in bit 6: 

Main Memory Screen Memory 
Character Representation Representation 

A 01000001 00000001 

Shifted A ( 4> > 1 1000001 01000001 

1 00110001 00110001 

Shifted 1 ( H ) 10110001 01110001 

When PRINTing to the screen, the PET automatically makes the con- 
version to screen codes. Only when you are PEEKing and POKEing in screen 
memory do you need to be concerned about the character set differences. 

Screen memory can be considered to have an additional "bit" that 
represents the alternate character set by a POKE 59468,14 as described in 
Chapter 5. POKE 59468,12 restores the standard set. The alternate set is 
also shown in Appendix A. 

ASSEMBLY LANGUAGE PROGRAMMING 

PET BASIC provides minimal assistance to the user who wishes to write and 
execute programs written in 6502 assembly language. Assembly language pro- 
grams execute faster and require less memory space for a given funct'on than the 
equivalent BASIC program. You might want to write an assembly language 
program to be run on the PET if: 

1. The operation is not fast enough using a BASIC program 

2. The operation cannot be implemented in PET BASIC 

3. The operation takes up too much memory space as BASIC program 

4. Assembly language lends itself better to the task than the BASIC 
language. Some I/O operations probably fall into this category. 
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An assembly language program can be loaded into PET memory by 
POKEing the decimal values of the 6502 instructions that make up the pro- 
gram. There is no area set aside for use by assembly language programs. You 
have to make space, either by taking otherwise unused system locations or 
by setting up a space in the user program area of memory. The following are 
possible locations: 

1. Cassette Buffers. If you do not have a second cassette unit, then the 
192-byte tape buffer for cassette #2 can be used to store an assembly 
language program. The buffer #2 extents are locations 826 to 1017 (see 
Table 6-2). In addition, if the console cassette unit is not going to be 
used while the assembly language program is operating, then the other 
192-byte tape buffer for cassette #1, at memory locations 634-825, is 
also available. No LOADs, SAVEs or other tape I/O can be performed to 
the particular cassette while the cassette buffer is used by an assembly 
language program. 

2. Top of Memory. Memory locations 52 and 53 contain the pointer to the 
top of memory. On 8K PETs this value is 8192. You can temporarily set 
the top of memory pointer to a lower address, thereby reserving a num- 
ber of bytes from the new pointer value to the actual top of memory for 
storage of an assembly language program. To set the pointer, say, down 
1000 bytes, you will need to store the value 7192 (8192-1000) con- 
verted into low, high address order, e.g.: 

High Low 

7192i =1C18 16 — 1C 16 =28 10 and 18 16 =24 10 

So 24 is to be stored at location 52 (low byte), and 28 is to be stored at loca- 
tion 53 (high byte), the following instructions can be used: 

10 AL=PEEK(52);AH=PEEK(53):REM SAVE CURRENT POINTER 
20 POKE 52.24:POKE 53,28:REM TOP OF CORE = 7192 



100 POKE 52,AL:POKE 53,AH:REM RESTORE POINTER 
110 END 

3. You may find usable locations in the BASIC Statement Area. You may 
create a block of dummy DATA statements and use those locations. 
There are generally a few locations free between the end of the program 
and the beginning of the Variable Area. You must be very careful 
when trying these types of approaches that your assembly language 
program and the PET BASIC interpreter do not get in each other's way. 
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The PET BASIC interpreter can be used to locad an assembly language 
program into the selected area of memory. The process is a rudimentary one, 
consisting of POKEing the decimal equivalents of the 6502 machine 
language instructions. To get the instructions in decimal, you can write you pro- 
gram in 6502 assembly language (reference manuals are listed in an appendix), 
hand code it into hexadecimal, and then convert the hexadecimal codes to 
decimal. Commodore's Terminal Interface Monitor (available on cassette from 
Commodore if it is not built into your PET) stores the hexadecimal codes directly. 
However, with the Monitor you must load the assembly language routine sepa- 
rately from the BASIC program, whereas by POKEing you can load the assembly 
language routine as part of executing the main program written in BASIC. (The 
PET is suitable for implementing only small portions of the program in assembly 
language.) DATA statements are used to define the machine language codes, 
which can be subsequently READ into the program and passed to a POKE loop. 

Control is transferred to an assembly language program in one of two 
ways: the SYS command or the USR function. They are more or less in- 
terchangeable, but SYS is geared to turning control over to an assembly language 
program, whereas USR is a true function reference that allows a value to be sent 
to the called assembly language routine and a value returned by it to the main 
program. 

The assembly language program must return control back to BASIC via 
a Return-From-Subroutine (RTS) instruction. 



SYS 

SYS is a system function that transfers program control to an independent 
subsystem. 

Format: 



where: 



SYS(address) 



address 



is a numeric constant, variable, or expression 
representing the starting addess at which ex- 
ecution of the subsystem is to begin. The value 
must be in the range < address < 65535. 

Unlike other functions, SYS can be specified alone in a direct or program 
statement. 
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Examples: 

SYS(826) In immediate mode transfer control of the 

system to the 6502 machine language 
program beginning at memory location 
826 (the 2nd cassette buffer). 

55 SYS(826) Same as above but executed in program 

mode. On return, execution proceeds with 
the first statement in sequence following 
the SYS statement. 

126 SYS(A+14) Transfer control of the system to the com- 

puted address A+14. 

SYS is the assembly language subroutine equivalent to a GOSUB but with 
the important difference that the safeguards built in to PET BASIC to protect the 
system from user program errors are no longer operable once control has been 
released by execution of a SYS (or USR). The system will tend to crash even more 
frequently debugging assembly language programs than it does debugging 
BASIC program. 

Values can be passed between the BASIC program and the SYS subroutine 
using PEEKs and POKEs (for the BASIC program) to known memory locations. 



USR 

USR is a system function that passes a parameter to a user-written assem- 
bly language subroutine whose address is contained in memory locations 1 and 2 
and fetches a return parameter from the subroutine. 



Format: 



where: 



Examples: 



USR(arg) 

arg 

?USR(60) 



is the parameter value passed to the subroutine. 



Prints in immediate mode the value returned by 
the USR subroutine when passed a value of 60. 

105 A=USR(60) Same as above but in program mode. 

210 IF USR(X)<4GOTO 50 

510 SM=USR(XA)+USR(3.4)+SQR(Y) + 7r 
Before making a USR reference, the beginning addess of the assembly 
language subroutine must be placed into memory locations 1 and 2. For ex- 
ample, if the subroutine is located in the cassette #2 area, you would include the 
instructions: 



10 POKE 1,58 
20 POKE 2,3 



Low 



High 



since 826 10 =033Ai 6 , 3A 16 =58-|o and 03 16 =3- 10 
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The parameter value is passed to the USR subroutine in system loca- 
tions that function as a floating point accumulator (FAC) for all functions. The 
FAC resides in six bytes from memory locations 94 to 99 (5E-|g-63-|g). The 
FAC has the following format: 



Memory location: 94 95 96 97 98 99 (FAC 

Floating 
Point) 





11 


Fraction 

1 




Sign 



Exponent 



0=positive 
-1=negative 



Like floating variables, the exponent is stored in excess 1 28 format and the 
fraction is normalized with the high-order bit of byte 95 (the high-order byte of 
the fraction) set to 1 . The difference between this format and the variable format 
is that the high-order 1 bit is present in byte 95 of the FAC. An extra byte (99) is 
used to hold the sign of the fraciton. (This is done for ease of manipulation by the 
functions that use the FAC.) 

The USR subroutine must fetch the value passed to it from the FAC 
locations. It must deposit the value being returned into the FAC before ter- 
minating. If the USR subroutine does not alter the FAC, then the same value 
is returned to the program as was passed from it. 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) 



Memory 


Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 








Page (0-255) 










USR Function Locations 





0000 


76 


4C 


Constant 6502 JMP instruction 


1-2 


0001-0002 


826 


033A 


User address jump vector 

Evaluation of Variables and 
Terminal I/O Maintenance 


3 


0003 





00 


Search character 


4 


0004 





00 


Delimiter flag for quote mode scan 


5 


0005 


255 


FF 


Input buffer pointer, general 
counter 


6 


0006 





00 


Flag for dimensioned variables 


7 


0007 





00 


Flag for variable type: 
00=numeric 
FF=stnng 


8 


0008 





00 


Flag for numeric variable type: 
00=floating point 
80=integer 


9 


0009 





00 


Flag for DATA scan: LIST quote: memory 


10 


000A 





00 


Flag to allow subscripted variable: FNx flag 


11 


000B 





00 


Flag for input type: 
0HNPUT 
64-GET 
152 = READ 


12 


OOOC 





00 


Flag for ATN sign: comparison evaluation 


13 


000D 





00 


Flag to suppress output: 
+ normal 
— suppressed 


14 


000E 





00 


Current I/O device for prompt-suppress 


15 


000F 


40 


28 


Terminal width (unused} 


16 


0010 


30 


1E 


Limit for scanning source columns (unused) 


17-18 


0011-0012 


828 


033C 


Basic integer address (for SYS. GOTO, etc.) 


19 


0013 


22 


16 


Index to next available descriptor 


20-21 


0014-0015 


19 


13 


Pointer to last string temporary 


22-29 


001 6-00 1D 


2 


0002 


Table of double-byte descriptions that point 
to variables (8 bytes) 


30-31 


001E-001F 


16451 


4043 


Indirect index #1 


32-33 


0020-0021 


26119 


6607 


Indirect index #2 


34 


0022 


1 


01 


Pseudo-register for function 
operands (6 bytes) 


35 


0023 


140 


8C 




36 


0024 





00 




37 


0025 





00 




38 


0026 





00 




39 


0027 





00 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 












Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Data Storage Maintenance 


40-41 


0028-0029 


1025 


0401 


Pointer to start of BASIC text 


42-43 


002A-002B 


1920 


0780 


Pointer to start of variables 


44-45 


002C-002D 


2032 


07F0 


Pointer to end of variables 


46-47 


002E-002F 


2191 


088F 


Pointer to end of arrays 


48-49 


0030-0031 


8192 


2000 


Pointer to start of strings (moving down) 


50-51 


0032-0033 


8191 


1FFF 


Pointer to end of strings (top of available 
RAM) 


52-53 


0034-0035 


8192 


2000 


Pointer to limit of BASIC memory 


54-55 


0036-0037 


2000 


07 DO 


CurrentTine number. Loc 55=-2 if no 
program yet executed 


56-57 


0038-0039 


110 


006E 


Previous line number 


58-59 


003A-003B 


1897 


0769 


Pointer to next line to be executed (for 
CONT) 


60-61 


003C-003D 


200 


00C8 


Line number of current DATA line 


62-63 


003E-003F 


1855 


073F 


Pointer to current DATA item 

Expression Evaluation 


64-65 


0040-0041 


514 


0202 


INPUT vector 


66-67 


0042-0043 


89 


0059 


Current variable name. 


68-69 


0044-0045 


2006 


07D6 


Pointer to current variable 


70-71 


0046-0047 


2006 


07D6 


Pointer to current FOR . . NEXT variable 


72-73 


0048-0049 


1279 


04FF 


Pointer to current operator in ROM table 


74 


004A 





00 


Mask for current logical operator 


75-76 


004B-004C 


62268 


F33C 


Pointer to user function FN definition 


77-78 


0040-004E 


26531 


67A3 


Pointer to a string description 


79 


004F 


243 


F3 


Length of string 


80 


0050 


3 


03 


Constant used by garbage collection routine 


81 


0051 


76 


4C 


Constant 6502 JMP instruction 


82-83 


0052-0053 





00 


Jump vector for functions 


84-89 


0054-0059 


211 


D3 


Floating point accumulator #3 (6 bytes) 


90-91 


005A-005B 





0000 


Block transfer pointer #1 


92-93 


005C-005D 





0000 


Block transfer pointer #2 


94-99 


005E-0063 






Floating point accumulator (FAC) #1 
(6 bytesl 









00 


94 005E Exponent +128 









00 


95 005F Fraction MSB Floating Point 









00 


96 0060 Fraction 









00 


97 0061 Fraction MSB Integer 









00 


98 0062 Fraction LSB 









00 


99 0063 Sign of fraction (0 if zero or 
positive. I if negative) 


100 


0064 





00 


Copy of FAC #1 sign of fraction 


101 


0065 





00 


Counter for number of bits to shift to nor- 
malize FAC #1 


102-107 


0066-006B 





00 


Floating point accumulator #2 
(6 bytes) 


108 


006C 





00 


Overflow byte for floating argument 


109 


006D 





00 


Copy of FAC #2 sign of fraction 


110-111 


006E-006F 


258 


0102 


Conversion pointer 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory 


Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










RAM Subroutines 


112-135 


0070-0087 


230 


E6 


Routine to fetch next BASIC character 






173 


AD 


1 18 76 Entry to refetch current character 






1904 


0770 


1 19-120 77-78 Pointer into source text 


136-140 


0088-008C 


128 


80 


Next random no in storage and FIND work 
area 

OS Page Zero Storage 


141-143 


008D-008F 


398710 


061576 


24-hour clock incremented every 1/60 sec- 
ond (jiffy) Resets every 5,184,000 jiffies 
(24 hours). Stored in high to low order 


144-145 


0090-0091 


58926 


E62E 


Hardware interrupt vector 


146-147 


0092-0093 


64791 


FD17 


6502 BRK instruction interrupt vector 


148-149 


0094-0095 


50057 


C389 


NMI interrupt vector 


150 


0096 





00 


Status word ST (1 byte) 


151 


0097 


255 


FF 


Matrix coordinate of key depressed at cur- 
rent jiffy 
1-80=key. 
255=no key 


152 


0098 





00 


Status of SHIFT key: 
0=unshifted (up) 
1=shifted (down) 


153-154 


0099-009A 


65282 


FF02 


Correction factor for clock 


155 


009B 


255 


FF 


Keyswitch PIA: STOP and RVS flags 


156 


009C 





00 


Timing constant buffer 


157 


009D 





00 


I/O flag: 
0=LOAD 
1=VERIFY 


158 


009E 





00 


Number of characters in keyboard buffer (0 
to 9) 


159 


009F 





00 


Flag to indicate reverse field on (0=normal) 


160 


0OA0 





00 


IEEE 488 output flag 
FF— character waiting 


161 


00A1 


13 


OD 


Byte pointer to end of line for input 


162 


00A2 





00 


Utility 


163-164 


OOA3-O0A4 


11, 13 


OB. OD 


Cursor log (row, column) 


165 


O0A5 


63 


3F 


IEEE 488 output character buffer 


166 


00A6 


255 


FF 


Key image 


167 


00A7 


1 


01 


Flag for cursor enable: 
0-Enable 
1 -Disable 


168 


00A8 


17 


11 


Counter to flip cursor (20 to 1) 


169 


00A9 


32 


20 


Copy of character at current cursor position 


170 


00AA 





00 


Flag for cursor on/off: 
0=cursor moved 
1 =--b!ink started 


171 


OOAB 





00 


Flag for tape write 


172 


OOAC 





00 


Flag for input source: 
0=keyboard buffer 
1 ^screen memory 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample 


Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










OS Page Zero Storage (Continued) 


173 


00AD 





00 


I/O utility; X save flag 


174 


OOAE 


1 


01 


Number of open files {index into tables) 


175 


OOAF 





00 


Default input device number (0=keyboard) 


176 


00B0 


3 


03 


Default output device number (3=screen) 


177 


00B1 





00 


Tape parity byte 


178 


00B2 





00 


Flag for byte received 


179 


00B3 





00 


I/O utility 


180 


00B4 





00 


Tape buffer character 


181 


00B5 





00 


Byte pointer in filename transfer 


182 


00B6 





00 


I/O utility 


183 


O0B7 





00 


Serial bit count 


184 


00B8 





00 


Tape utility 


185 


00B9 





00 


Cycle counter — flip for each bit read from 
tape 


186 


OOBA 





00 


Countdown synchronization on tape write 


187 


OOBB 





00 


Tape buffer 1 index to next character 


188 


OOBC 





00 


Tape buffer 2 index to next character 


189 


OOBD 





00 


Countdown synchronization on tape read 


190 


OOBE 





00 


Flag to indicate bit/byte tape error 


191 


OOBF 





00 


Flag to indicate tape error 
0=first half-byte marker not written 


192 


00C0 





00 


Flag to indicate tape error 
0=2nd half-byte marker not written 


193 


00C1 





00 


Tape dropout counter 


194 


00C2 





00 


Flag for cassette read current 
function 

0=scan, 1-15=count. 
40-|g=load. 80-|g=end 


195 


00C3 





00 


Checksum utility 


196-197 


00C4-00C5 


33728 


83CD 


Pointer to start of line where cursor is flash- 


198 


00C6 





00 


ing 
Column position where cursor is flashing 
(0- 79) 


199-200 


00C7-00C8 


33792 


8400 


Load start address; utility pointer 


201-202 


00C9-00CA 





0000 


Load end address 


203-204 


00CB-00CC 





00 


Tape timing constants 


205 


OOCD 





00 


Flag for quote mode 
0=not quote mode 


206 


OOCE 





00 


Flag for tape read timer enable 
0=disabled 


207 


OOCF 





00 


Flag for EOT received from tape 


208 


00 DO 





00 


Read character error 


209 


00D1 





00 


No. of characters in current file name 


210 


O0D2 


4 


04 


Current logicai file number 


211 


00D3 


255 


FF 


Current secondary address 


212 


00D4 


4 


04 


Current device number 


213 


00D5 


39 


27 


Current screen line length (39, 79) 


214-215 


00D6-00D7 





0000 


Pointer to start of current tape buffer {634 or 
826) 
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Table 6-2 


. PET Memory Map (Rev. 


3 ROMs) (Continued) 


Memory Address 


Sample Value 












Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


216 


00D8 


24 


18 


Line number where cursor is flashing (0-24) 


217 


00D9 


10 


OA 


I/O storage: last key input, buffer 
checksum, bit buffer 


218-219 


00DA-00DB 





0000 


Pointer to current file name 


220 


OODC 





00 


Number of Insert keys pushed to go 


221 


OODD 





00 


Serial bit shift word 


222 


OODE 





00 


Number of blocks remaining to read/write 


223 


OODF 





00 


Serial word buffer 


224-248 


0OEO-0OF8 






High byte of screen line addresses 






128 


80 


224-230=128 (lines 1-7) 






129 


81 


231-236=129 (lines 8-13) 






130 


82 


237-243=130 (lines 14-20) 






131 


83 


244-248=131 (lines 21-25) 


249 


00F9 





00 


Cassette #1 status switch 


250 


OOFA 





00 


Cassette #2 status switch 


251-252 


00FB-00FC 


54144 


D380 


Tape start address 


253-255 


00FD-00FF 


243 


F3 


Utility 








Page 1 (256-511) 


256-up 


0100-up 


32 


20 


Tape read working storage (up to 51 1) and 

conversion storage 
256-318 For error correction in tape reads 

(62 bytes) 
256-266 Binary to ASCII conversion 

(1 1 bytes) 


51 1-down 


01FF-down 


44 


2C 


Stack (down to 256) 








Page 2-3 (512-1023) 


512-592 


0200-0250 






BASIC input line buffer (80 bytes) 






12597 


3135 


512-513 0200-0201 Program Counter 






50 


32 


514 0202 Processor status 









00 


515 0203 Accumulator 






171 


AB 


516 0204 X index 









00 


517 0205 Y index 









00 


518 0206 Stack pointer 






15104 


3B00 


51 9-520 0207-0208 User modifiable IRQ 


593-602 


0251-025A 


4 


04 


Table of logical numbers of open files 


603-612 


025B-0264 


4 


04 


Table of device numbers of open files 


613-622 


0265-026E 


255 


FF 


Table of secondary address modes of open 
files 


623-632 


026F-0278 


3 


03 


Keyboard buffer (10 bytes) 


633 


0279 


28 


1C 


Keyboard utility 


634-825 


027A-0339 


28 


1C 


Tape buffer for cassette #1 (192 bytes) 


826-1017 


033A-03F9 


173 


AD 


Tape buffer for cassette #2 (192 bytes) 


1018-1019 


03FA-03FB 


59383 


E7F7 


Vector for Machine Language Monitor 


1020-1023 


03FC-03FF 


195 


C3 


Utility space/unused 
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Table 6-2. 


PET Memory Map (Rev. 3 ROMs) (Continued) 


Memory Address 


Sample Value 












Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










OS Page Zero Storage (Continued) 








Page 4-128 (1024-32767) 


1024-32767 


0400-7FFF 





00 


User program area and Expansion RAM 
4K PET: 1024-4095 0400-OFFF 

User program area 

4096-32767 1000-7FFF 

Expansion RAM 
8K PET: 1024-8191 0400-1FFF 

User program area 

8192-32767 2000-7FFF 

Expansion RAM 
16K PET: 1024-16383 0400-3FFF 

User program area 

16384-32767 4000-7FFF 

Expansion RAM 
32K PET: 1024-32767 0400-7FFF 

User program area 








Page 129-144 (32768-36863) 


32768-36863 


8000-8FFF 


32 


20 


TV RAM 

32768-33767 Display memory (1000 bytes) 








Page 145-192 (36864-49151) 


36864-49151 


9000-BFFF 


144 


90 


Expansion ROM 








Page 193-232 BASIC (49152-59391) 










Pointers to BASIC Routines 


49152-49153 


C000-C001 


51008 


C740 


Pointer -1 to END* 


49154-49155 


C002-C003 


50775 


C657 


Pointer -1 to FOR 


49156-49157 


C004-C005 


52255 


CC1F 


Pointer -1 to NEXT 


49158-49159 


C006-C007 


51199 


C7FF 


Pointer --1 to DATA 


49160-49161 


C008-C009 


51878 


CAA6 


Pointer -1 to INPUT* 


49162-49163 


C00A-C00B 


51904 


CACO 


Pointer -1 to INPUT 


49164-49165 


C00C-C00D 


53090 


CF62 


Pointer -1 to DIM 


49166-49167 


C00E-C00F 


51974 


CB06 


Pointer -1 to READ 


49168-49169 


C010-C011 


51372 


C8AC 


Pointer -1 to LET 


49170-49171 


C012-C013 


51116 


C7AC 


Pointer -1 to GOTO 


49172-49173 


C014-C015 


51076 


C784 


Pointer -1 to RUN 


49174-49175 


C016-C017 


51247 


C82F 


Pointer —1 to IF 


49176-49177 


C018-C019 


50991 


C72F 


Pointer -1 to RESTORE 


49178-49179 


C01A-C01B 


51087 


C78F 


Pointer -1 to GOSUB 


49180-49181 


C01C-C01D 


51161 


C7D9 


Pointer -1 to RETURN 


49182-49183 


C01E-C01F 


51266 


C842 


Pointer -1 to REM 


49184-49185 


C020-C021 


51006 


C73E 


Pointer -1 to STOP 


49186-49187 


C022-C023 


51282 


C852 


Pointer -1 to ON 


49188-49189 


C024-C025 


55055 


D70F 


Pointer --1 to WAIT 


49190-49191 


C026-C027 


65492 


FFD4 


Pointer -1 to LOAD 


49192-49193 


C028-C029 


65495 


FFD7 


Pointer -1 to SAVE 


49194-49195 


C02A-C02B 


65498 


FFDA 


Pointer -1 to VERIFY 


49196-49197 


C02C-C02D 


53900 


D28C 


Pointer -1 to DEF 


49198-49199 


C02E-C02F 


55046 


D706 


Pointer -1 to POKE 


49200-49201 


C030-C031 


51594 


C98A 


Pointer -1 to PRINT* 



These memory locations contain the address of the byte preceding the specified BASIC routines. 
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Table 6-2 


. PET Memory Map (Rev. 


3 ROMs) (Continued) 




Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Pointers to BASIC Routines (Cont 


nued) 


49202-49203 


C032-C033 


51626 


C9AA 


Pointer -1 to PRINT 




49204-49205 


C034-C035 


51050 


C76A 


Pointer -1 to CONT 




49206-49207 


C036-C037 


50612 


C5B4 


Pointer -1 to LIST 




49208-49209 


C038-C039 


50550 


C576 


Pointer -1 to CLR 




49210-49211 


C03A-C03B 


51600 


C990 


Pointer -1 to CMD 




49212-49213 


C03C-C03D 


65501 


FFDD 


Pointer -1 to SYS 




49214-49215 


C03E-C03F 


65471 


FFBF 


Pointer -1 to OPEN 




49216-49217 


C040-C041 


65474 


FFC2 


Pointer -1 to CLOSE 




49218-49219 


C042-C043 


51836 


CA7C 


Pointer -1 to GET 




49220-49221 


C044-C045 


50522 


C55A 


Pointer -1 to NEW 




49222-49223 


C046-C047 


56133 


DB45 


Pointer to SGN " 




49224-49225 


C048-C049 


56280 


DBD8 


Pointer to INT 




49226-49227 


C04A-C04B 


56164 


DB64 


Pointer to ABS 




49228-49229 


C04C-C04D 





0000 


Pointer to USR pointer 




49230-49231 


C04E-C04F 


53849 


D259 


Pointer to FRE 




49232-49233 


C050-C051 


53882 


D27A 


Pointer to POS 




49234-49235 


C052-C053 


56926 


DE5E 


Pointer to SQR 




49236-49237 


C054-C055 


57215 


DF7F 


Pointer to RND 




49238-49239 


C056-C057 


55542 


D8F6 


Pointer to LOG 




49240-49241 


C058-C059 


57050 


DEDA 


Pointer to EXP 




49242-49243 


C05A-C05B 


57304 


DFD8 


Pointer to COS 




49244-49245 


C05C-C05D 


57311 


DFDF 


Pointer to SIN 




49246-49247 


C05E-C05F 


57384 


E028 


Pointer to TAN 




49248-49249 


C060-C061 


57484 


E08C 


Pointer to ATN 




49250-49251 


C062-C063 


55016 


D6E8 


Pointer to PEEK 




49252-49253 


C064-C065 


54870 


D656 


Pointer to LEN 




49254-49255 


C066-C067 


54079 


D33F 


Pointer to STR$ 




49256-49257 


C068-C069 


54919 


D687 


Pointer to VAL 




49258-49259 


C06A-C06B 


54885 


D664 -Xi-> 


' Pointer to ASC 




49260-49261 


C06C-C06D 


54726 


D5C6 7>L<-i 


^Pointer to CHR$ 




49262-49263 


C06E-C06F 


54746 


D5DA 


Pointer to LEFTS 




49264-49265 


C070-C071 


54790 


D606 


Pointer to RIGHTS 




49266-49267 


C072-C073 


54801 


D611 


Pointer to MID$ 




49268-49297 


C074-C091 






Hierarchy and action addresses for 
tors 


opera- 


49298-49553 


C092-C191 






Table of BASIC keywords 




49554-49833 


C192-C2A9 






BASIC error messages 

BASIC Routines 
Starting Address Function 




49834-59343 


C2AA-DFFF 






49834 C2AA FOR. . . NEXT stack 

check 
49880 C2D8 Insert line space 

marker 
49947 C31B Stack overflow 

check 
49960 C328 Error message 

abort 
50057 C389 READY 
50091 C3AB Handle new line 





" These memory locations contain the address of the first byte of the specified BASIC routines 
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Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










BASIC Routines (Continued) 










Starting Address Function 










50242 C442 Rechain lines after 










insert/delete 










50287 C46F Input line 










50325 C495 Keyword encoder 










50476 C52C Line number search 










50523 C55B NEW 










50551 C577 CLR 










50599 C5A7 Set pointer to start 










of program 










50613 C5B5 LIST 










50776 C658 FOR 










50944 C700 Statement execute 










50992 C730 RESTORE 










51007 C73F STOP 










51009 C741 END 










51051 C76B CONT 










51077 C785 RUN 










51088 C790 GOSUB 










51117 C7AD GOTO 










51162 C7DA RETURN 










51200 C800 DATA 










51214 C80E Scan for next BASIC 










statement 










51217 C81 1 Scan for next BASIC line 










51248 C830 IF 










51267 C843 REM 










51283 C853 ON 










51315 C873 Number fetch 










51373 C8AD LET - 










51496 C928 Add ASCII digit to 










Accumulator #1 










51595 C98B PRINT* 










51601 C991 CMD 










51627 C9AB PRINT 










51740 CA1C Print string 






i 




51769 CA39 Print character 
51791 CA4F Input data error 
51837 CA7D GET 
51879 CAA7 INPUT* 
51962 CAFA Input prompt 
51975 CB07 READ 
52220 CBFC Error messages 
52256 CC20 NEXT 
52345 CC79 Format checker 
52383 CC9F Expression evaluator 
53091 CF63 DIM 
53101 CF6D Variable table lookup 
53249 D001 Create new variable 
53420 DOAC Array table search/ 
create array 
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Table 6-2 


PET Memory Map (Rev. 


3 ROMs) (Continued) 


Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










BASIC Routines (Continued) 










Starting Address Function 










53849 D259 FRE 










53869 D26D Integer-to-floating 








* 


53882 D27A POS 

53888 D280 Valid direct check 

53901 D28D DEF 

54079 D33F STR$ 

54726 D5C6 CHR$ 

54746 D5DA LEFT$ 

54790 D606 RIGHTS 

54801 D611 MID$ 

54870 D656 LEN 

54885 D665 ASC 

54919 D687 VAL 

54994 D6D2 Floating-to-integer 

55016 D6E8 PEEK 

55047 D707 POKE 

55056 D710 WAIT 

55091 D733 Subtraction 

55150 D76E Addition 










55542 D8F6 LOG 

55607 D937 Multiplication 




//,*- i\. 


■ -? r 




55704 D998 Load number to AFAC 
55818 DA0A Division 






A< 


( si." . stv, 


55982 DAAE Load Accumulator (FAC) — 

56030 DADE Store FAC 3-fl 

56072 DB08 Copy AFAC to FAC 




ft 


-'i C t/jH 


— .>>/{■£ 


56088 DB18 Copy FAC to AFAC 






'AC. 0^s'' 


I "~ c^p^S 


56133 DB45 SGN 
'56164 DB64 ABS 
* 56280 DBD8 INT 

56526 DCCE IN line message 

56553 DCE9 Numeric-to-ASCII 

56319 DBFF String-to-floating 

56926 DE5E SQR 

56936 DE68 Power function 

57050 DEDA EXP 

57215 DF7F RND 

57304 DFD8 COS 

57311 DFDF SIN 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 



Decimal 



Hexadecimal 



Sample Value 



Decimal 



Hexadecimal 



Description 



57344-5391 



58100-58906 



58907-59113 
59114-59127 
59128-59241 
59242-59391 



59408 
59409 



59410 

59411 

59424 
59425 

59426 

59427 



Screen Editor 
Starting Address Function 



E000-E7FF 



57384 E028 
57484 E08C 
57593 E0F9 



TAN 
ATN 

Subroutine to be moved to 
page ($70-$87) 
Initial RND seed (5 bytes) 
Initialize BASIC system 
Clear screen 
Home cursor 
Character fetch 



E2F4-E61A 



E61B-E6E9 
E6EA-E6F7 
E6F8-E769 
E76A-E7FF 



57617 E111 

57622 El 16 

57897 E229 

57943 E257 

57989 E285 

Video driver 

58100 E2F4 

58175 E33F 

58188 E34C 

58687 E53F 
Interrupt Handler 
Keyboard Scan 
Keyboard Encoding Table 
Subroutines for Machine Language Monitor 



Input from screen 
Quote mode ($CD) switcher 
Print character 
Scroll 1 line 



Page 233-240 I/O Ports and Expansion I/O (PIA's and VIA) (59392-61439) 



E810 
E811 



E812 

E813 

E820 
E821 

E822 

E823 



249 
60 



255 

61 

255 
188 

255 

60 



F9 
3C 



FF 

3D 

FF 
BC 

FF 

3C 



Keyboard PIA (59408-59411) 

I/O Port A and Data Direction register 
Control Register A — screen blanking 

52=Screen off (blanked) 

60=Screen on 
I/O Port B and Data Direction register 

255=all keys except: 

254-RVS key 

253-[ key 

251 -SPACE key 

247= < key 
Control Registers B — #1 cassette motor 

53=motor on 

61 —motor off 

IEEE Port PIA (59424-59427) 

I/O Port A and Data Direction register 

PEEK (59424) reads input data 
Control Register A — set output line CA2 

POKE 59425.52=low 

POKE 59425.60=high 
I/O Port B and Data Direction registers 

POKE 59426. data writes output data 

POKE 59426.255 before a read to Port A 
Control Register B — set output line CB2 

POKE 59427.B2-IOW 

POKE 59427.60=high 
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Table 6-2. PET Memory Map (Rev. 3 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Parallel User Port VIA 










(59456-59471) 


59456 


E840 


223 


DF 


I/O Port B 
207— #2 cassette motor on 
223— #2 cassette motor off 
WAIT 59456.23.23 waits for vertical 
retrace of display 

Bit 1-PB1 (NFRD on IEEE connector) 
output line 

Bit 3=PB3 (ATN on IEEE connector) 
output line 


59457 


E841 


255 


FF 


I/O Port A with handshaking 


59458 


E842 


30 


1E 


Data Direction register for I/O Port B 


59459 


E843 





00 


Data Direction register for I/O Port A 
For each bit 1=output. 0=input 
=0 all input 
=255 all output 


59460-59461 


E844-E845 


29241 


7239 


(Low. high order) Read Timer 1. Counter; 
write to Timer 1 Latch and (high byte) 
initiate count 


59462-59463 


E846-E847 


65535 


FFFF 


(Low. high order) Read Timer 1 Latch 


59464 


E848 


147 


93 


Read Timer 2 Counter low byte and reset 
interrupt; write to Timer 2 low byte 
PEEK (59464) Clock decrements every 
microsecond 

POKE 59454.n sets SR rate of shift from 
high (n=0) to low (n=255) for music from 
User Port 


59465 


E849 


217 


D9 


Read Timer 2 Counter high byte; write to 
Timer 2 high byte and reset interrupt 
PEEK (59465) Clock decrements every 
millisecond 


59466 


E84A 





00 


Serial I/O Shift register (SR) 
POKE 59466, 15 or 85 to generate 
Square wave output at CB2 for playing 
music from User Port. 


59467 


E84B 





00 


Auxiliary Control register 
= 16 Sets SR to free-running mode for 
music from User Port 
=0 for proper operation of tape drive 


59468 


E84C 


14 


0E 


Peripheral Control register 
= 12 for graphics on shifted 
characters 

= 14 for lower-case letters on shifted 
characters 


59469 


E84D 





00 


Interrupt Flag register 


59470 


E84E 


128 


80 


Interrupt enable register 


59471 


E84F 


255 


FF 


I/O Port A without handshaking 




F 


'age 241-256 Of 


)erating System 


61440-65535) 


61440-61621 


F000-F0B5 






Monitor messages 
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Table 6-2. 


PET Memory Map (Rev. 3 ROMs) (Continued) 


Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










GPIB Handler (IEEE 488 Bus) 










Starting Address Function 


61622-61904 


F0B6-F1D0 






61622 F0B6 Setup for Listen, Talk. etc. 
61678 FOEE Send character 
61736 F128 Output character 
immediate mode 
61750 F136 Error messages 
61796 F1 64 Send immediate 
Listen command, 
then secondary 
address 
61807 F16F Output characters 
61823 F17F Send Unlisten/ 

Untalk 
61836 F18C Input character 

File Control 


61905-63493 


F1D1-F805 






61905 F1D1 Get a character 

(without cursor) 
61921 F1E1 Input a character 

(with cursor) 
62002 F232 Output a character 

to any device 
62062 F26E Close all files 
62066 F272 Restore default I/O devices 
62121 F2A9 CLOSE 
62209 F301 STOP search 
62223 F30F STOP key 
62229 F31 5 Direct mode test 
62402 F3C2 LOAD 
62474 F40A Display filename/ 
fetch file number 
62526 F43E Fetch LOAD/SAVE 

parameters 
62560 F460 Fetch byte paramter 
62566 F466 Send program name 

to GPIB 
62612 F494 Tape header search 
62647 F4B7 VERIFY 
62670 F4CE Fetch OPEN/CLOSE 

parameters 
62753 F521 OPEN 
62886 F5A6 Find any tape 

header 
62938 F5DA Write tape header 
63036 F63C Process tape header 
63108 F684 SYS 
63134 F69E SAVE 
63273 F729 Clock update 
63344 F770 Set input device 
63420 F7BC Set output device 
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Memory Address 


Sample Value 












Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Tape Control 


63494-64720 


F806-FCD0 






63494 F806 Advance tape buffer 

pointer 
63541 F835 Gheck for cassette on 
63573 F855 Tape read to buffer 
63622 F886 Write block to tape 
63716 F8E6 Interrupt wait 

Power-on Diagnostics 


64721-64784 


FCD1-FD10 






64721 FCD1 System reset 

SYSI64721) simulates 
power-on reset. 

64766 FCFE NMI interrupt entry point 


64785-65471 


FD11-FFBF 






64769 FD01 Table of interrupt 
vectors 

Machine Language Monitor 
Jump Vectors 


65472-65474 


FFC0-FFC2 


76 62753 


4C F521 


JMP OPEN 


65475-65477 


FFC3-FFC5 


76 62121 


4C F2A9 


JMP CLOSE 


65478-65480 


FFC6-FFC8 


76 63344 


4C F770 


JMP Set Input Device 


65481-65483 


FFC9-FFCB 


76 63420 


4C F7BC 


JMP Set Output Device 


65484-65486 


FFCC-FFCE 


76 62066 


4C F272 


JMP Restore Default I/O Devices 


65487-65489 


FFCF-FFD1 


76 61921 


4C F1E1 


JMP Input Character - RDT 


65490-65492 


FFD2-FFD4 


76 62002 


4C F232 


JMP Output Character - WRT 


65493-65495 


FFD5-FFD7 


76 62402 


4C F3C2 


JMP LOAD 


65496-65498 


FFD8-FFDA 


76 63134 


4C F69E 


JMP SAVE 


65499-65501 


FFDB-FFDD 


76 62647 


4C F4B7 


JMP VERIFY 


65502-65504 


FFDE-FFED 


76 63108 


4C F684 


JMP SYS 


65505-65507 


FFE1-FFE3 


76 62223 


4C F30F 


JMP Test STOP Key 


65508-65510 


FFE4-FFE6 


76 61905 


4C F1D1 


JMP Get Character 


65511-65513 


FFE7-FFE9 


76 62062 


4C F26E 


JMP Close all files 


65514-65516 


FFEA-FFEC 


76 63273 


4C F729 


JMP Clock Update 

6502 Interrupt Vectors 


65530-65531 


FFFA-FFF8 


65766 


FCFE 


Non-maskable interrupt (NMI) 


65532-65533 


FFFC-FFFD 


64721 


FCDI 


System reset (RESET) 


65534-65535 


FFFE-FFFF 


58907 


E61B 


Interrupt request break (IRQ+BRK) 



346 



APPENDIX A 



PET ASCII Codes 



Appendix A is a detailed chart illustrating the characters and cursor controls 
of the PET and CBM computer. The left side of the chart shows the standard and 
alternate character sets for the PET with a graphic keyboard and the CBM with a 
full-size keyboard. The right three columns show each character's corresponding 
ASCII and PEEK/POKE. The characters are arranged in ascending sequence by 
their PET ASCII number, or by their PEEK/POKE number if the character does not 
have a PET ASCII number. Many characters appear twice because they have two 
PET ASCII numbers. 

STANDARD CHARACTER SET : The Standard Character Set is made up of the 
characters normally displayed when the PET is powered up. 

GRAPHIC KEYBOARD: This column represents the Standard Character Set 
of all PET's with graphic symbols displayed upon the keyboard. This set is in effect 
when the PET is powered up or when value 12 is poked into memory location 
59468 by a POKE 59468,12. When in effect, all the characters shown on the 
keyboard, the upper-case letters, numbers, and graphic characters are available. 

CBM KEYBOARD: This column represents the Standard Character Set of the 
CBM version of the PET without graphics displayed on the keyboard. This set is in 
effect when the CBM is powered up or when value 14 is poked into memory loca- 
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tion 59468 by a POKE 59468,14. When in effect, all the characters shown on the 
keyboard, upper (with shift) and lower-case letters, numbers and some symbols 
are available. The CBM standard character is only represented if it differs from the 
standard graphic keyboard character. Otherwise, if the column is blank, you may 
assume that the graphic and typewriter standard character is the same. 

ALTERNATE CHARACTER SET : The Alternate Character Set is all the characters 
displayed only after poking the alternate set into effect with a POKE 59468,xx. 

GRAPHIC KEYBOARD: This column represents the alternate character set of 
all PETs with graphic symbols displayed upon the keyboard. This set is activated 
only after poking value 14 into memory location 59468 by a POKE 59468,14. 
When in effect, upper AND lower-case letters, numbers and most of the graphic 
characters are available, along with some special graphic characters not illus- 
trated on the keyboard. 

CBM KEYBOARD: This column represents the Alternate Character Set of 
the CBM version of the PET without graphics displayed on the keyboard. This set 
is activated only after poking value 12 into memory location 59468 by a POKE 
59468,12. When in effect, upper and lower-case letters, numbers, AND the 
graphic characters are available. Again, the CBM character is represented only if 
the character differs from the graphic keyboard character. If the column is blank, 
you may assume that the graphic and typewriter alternate character is the same. 

PET ASCII : As you recall from the discussion of the CHR$ function in Chapter 5, 
ASCII stands for the "American Standard Code for Information Interchange." 
Commodore developed its own ASCII code for the PET (and CBM) computer to 
include its unique graphic characters. We will call this special ASCII code PET 
ASCII. Two PET functions, ASC( ) and CHR$( ) use the PET ASCII decimal numbers 
to reference its characters. The PET ASCII code column enables you to find a 
character's PET ASCII number quickly by finding the desired character and look- 
ing across the chart for its PET ASCII number. Although both the PET ASCII 
decimal (DEC) number from to 255, and the hexadecimal (HEX) number from 00 
to FF are given, when using the ASC( ) or CHR$( ) functions, use only the decimal 
ASCII number. The last portion of the chart, the reverse characters, do not have 
PET ASCII numbers, and thus are arranged by their PEEK/POKE numbers, as ex- 
plained in the next section. 

PEEK/POKE : The PEEK/POKE code is the number that must be used when either 
POKEing a character to the screen, or when PEEKING into memory to see what 
character is contained in a specified memory location; the number returned will 
be the PEEK/POKE number representing that character. Notice that in most cases 
the PEEK/POKE number is not the same as the decimal ASCII number. This code 
number CANNOT be used with ASCII functions, only with PEEK and POKE. The 
PEEK/POKE code numbers do not appear in strict ascending sequence until the 
reverse characters portion of the chart. At this point, the chart is arranged in 
ascending PEEK/POKE order because the reverse PET characters lack PET ASCII 



348 



numbers, and without PRINT statements can only be referenced with PEEKs or 
POKEs. 



Standard 
Character Set 

PET CBM 



STOP 



Alternate 
Character Set 

PET CBM 



STOP 



RETURN 



CRSRt 
RVS 
HOME 
DELETE 



RETURN 



CRSRj 
RVS 
HOME 
DELETE 



CRSR— 



CRSR— 



PET ASCII 


DEC 


HEX 





00 


1 


01 


2 


02 


o 


03 


4 


04 


5 


05 


6 


06 


7 


0? 


8 


08 


9 


Q9 


10 


0fl 


11 


0E 


12 


0C 


13 


0D 


14 


0E 


15 


0F 


16 


10 


17 


11 


18 


12 


19 


13 


20 


14 


21 


15 


2 k' 


16 


23 


17 


24 


18 


25 


19 


26 


lfl 


2? 


IB 


28 


1C 


29 


ID 


30 


IE 


31 


IF 


.^,.— , 


20 



PEEK/ 
POKE 
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Standard 
Character Set 


Alternate 
Character Set 


PET CBM 

i 


PET CBM 

I 


11 

# 

* 


ti 
* 



* 

+ 




1 



4 

5 

e 



* 

+ 



i 

2 
3 
4 
5 
6 
7 
8 
9 



PET ASCII 


PEEK/ 






POKE 


DEC 


HEX 




33 


21 


33 


34 


22 


34 


35 


23 


35 


36 


24 


36 


37 


25 


37 


38 


26 


38 


39 


27 


39 


40 


28 


40 


41 


29 


41 


42 


20 


42 


43 


2E 


43 


44 


2C 


44 


45 


20 


45 


46 


2E 


46 


47 


2F 


47 


48 


30 


48 


43 


31 


49 


50 


32 


50 


51 


33 


51 


52 


34 


52 


53 


35 


53 


54 


36 


54 


55 


37 


55 


56 


3S 


56 


57 


39 


57 


53 


3fl 


58 


59 


3B 


59 


60 


3C 


60 


61 


3D 


61 


62 


3E 


62 


63 


3F 


63 


64 


40 
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Standard 


Alternate 


Character Set 


Character Set 


PET 


CBM 


PET CBM 


ft 


a 


ft 


E 


b 


B 


C 


c 


C 


D 


d 


D 


E 


e 


E 


F 


f 


F 


G 


g 


G 


H 


h 


H 


I 


i 


I 


J 


J 


J 


K 


k 


K 


L 


1 


L 


M 


m 


M 


H 


n 


N 











P 


P 


P 


Q 


q 


Q 


R 


r 


R 


%? 


s 


s 


T 


t 


T 


LI 


u 


U 


V 


V 


V 


W 


w 


w 




X 




V 


y 


V 


ti. 


z 


«£. 


c 




c 






\ 


J 




3 


t 




t 


*- 




4— 



PET ASCII 


PEEK/ 






POKE 


DEC 


HEX 




65 


41 


1 


66 


42 


2 


67 


43 


3 


68 


44 


4 


69 


45 


5 


70 


46 


6 


71 


47 


> 


72 


48 


8 


73 


49 


9 


74 


4fl 


10 


-?er 


4B 


11 


76 


4C 


12 


77 


4D 


13 


78 


4E 


14 


79 


4F 


15 


3@ 


50 


16 


SI 


51 


17 


32 


52 


18 


S3 


53 


19 


84 


54 


20 


35 


55 


21 


86 


56 


22 


87 


57 


23 


38 


58 


24 


S3 


59 


25 


90 


5ft 


26 


91 


5B 


27 


92 


5C 


28 


93 


5D 


29 


94 


5E 


30 


95 


5F 


31 


96 


60 


32 
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Standard 
Character Set 

PET CBM 

i 



# 

* 



* 

+ 



1 



Alternate 
Character Set 

PET CBM 

i 



# 
* 

< 

* 



a 
9 



ti 
l 



4 
5 
6 

8 

9 



PET ASCII 


PEEK/ 






POKE 


DEC 


HEX 




97 


61 


33 


98 


62 


34 


99 


63 


35 


100 


64 


36 


101 


65 


37 


102 


66 


38 


103 


67 


39 


104 


6'S 


40 


105 


69 


41 


106 


6fH 


42 


107 


6B 


43' 


108 


6C 


44 


109 


6D 


45 


110 


6E 


46 


111 


SF 


47 


112 


70 


48 


113 


71 


49 


114 


72 


50 


115 


73 


51 


116 


74 


52 


117 


75 


53 


118 


76 


54 


119 


77 


55 


120 


7& 


56 


121 


79 


57 


122 


7fl 


58 


123 


7E 


59 


124 


7C 


60 


125 


7D 


61 


126 


7E 


62 


127 


7F 


63 


128 


80 


64 
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Standard 

Character Set 

PET CBM 



RUN 



Alternate 

Character Set 

PET CBM 



RUN 



Shifted RETURN 



CRSRl 
RVS Off 
CLR Screen 
INSERT 



Shifted RETURN 



CRSRt 
RVS Off 
CLR Screen 
INSERT 



CRSR^- 



Shifted bf 



CRSR— 



Shifted 



PET ASCII 


PEEK/ 






POKE 


DEC 


HEX 




123 


81 


65 


130 


82 


66 


131 


83 


6? 


132 


84 


68 


133 


85 


63 


134 


86 


70 


135 


87 


71 


136 


8W 


72 


137 


83 


1 W 


138 


8fi 


74 


139 


3E 


75 


140 


8C 


76 


141 


8D 


77 


142 


8E 


78 


143 


8F 


73 


144 


90 


80 


145 


91 


81 


146 


92 


82 


147 


93 


83 


143 


94 


84 


149 


95 


85 


1 50 


36 


86 


151 


97 


87 


152 


98 


88 


153 


39 


83 


154 


9fl 


30 


155 


9E 


31 


156 


9C 


32 


157 


3D 


93 


15S 


3E 


34 


159 


3F 


35 


160 


fl0 


36 



353 



Standard 


Alternate 


PET ASCII 


PEEK/ 


Character Set 


Character Set 






POKE 


PET 


CBM 


PET 


CBM 


DEC 


HEX 




1 




1 




161 


Al 


97 


m 




m 




162 


A2 


98 


— 




— 




163 


A3 


9S 


1 




1 




164 
165 


fl4 
05 


1 00 
101 


■:■:■:' 

i 




1 




166 
167 


06 
07 


102 
103 


.'v.'- 




AS, 




168 


AS 


104 


r 
I 


a 


1 


r 


169 
170 


A9 
flfi 


105 
106 


r- 




H 




171 


AB 


107 


■ 




■ 




172 


AC 


108 


L 




u 




173 


AD 


109 


-I 




1 




174 


BE 


110 


^ 




_ 




175 


AF 


111 


r 




r 




176 


B0 


112 


JL 




-L 




177 


Bl 


113 


T 




T 




178 


B2 


114 


1 




H 

1 




179 
180 


B3 
B4 


115 
116 


1 




1 




181 


B5 


117 


1 




| 




182 


B6 


118 


— 




— 




183 


B7 


119 


"- 




— 




184 


B8 


120 


_ 




■» 




185 


B9 


121 


J 


J 


• 


J 


186 


Bfl 


122 


■ 




■ 




187 


BB 


123 


M 




■ 




188 


BC 


124 


-1 




-1 




139 


BD 


125 


" 




■ 




190 


BE 


126 


*« 




"• 




191 


BF 


127 


— 




— 




192 


C0 


64 
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Standard 


Alternate 


PET ASCII 


PEEK/ 


Character Set 


Character Set 






POKE 


PET 


CBM 


PET CBM 


DEC 


HEX 




* 


fi 


* 


193 


CI 


65 


I 


E 


I 


194 


C2 


66 




C 


... 


195 


C3 


67 


— 


D 


- 


196 


C4 


6B 


_ 


E 


— 


19? 


C5 


69 


_ 


F 


_ 


198 


C6 


?0 


1 


G 


l 


199 


C? 


71 


1 


H 


I 


200 


C8 


?2 


... 


I 




201 


C9 


73 


*.. 


J 




202 


Cfl 


74 


-•' 


K 


j 


203 


CB 


yer 


l_ 


L 


l_ 


204 


cc 


76 




M 




205 


en 


77 




H 




206 


CE 


78 


r 





r 


20? 


CF 


79 


"i 


P 


~i 


20S 


D0 


80 


• 


Q 


• 


209 


Dl 


81 




R 


_ 


210 


D2 


82 


* 


s 


• 


211 


D3 


83 


i 


T 


i 


212 


D4 


84 




U 


.■■ 


213 


D5 


85 


>;; 


l (( l 


X 


214 


D6 


86 


o 


w 


o 


215 


D? 


8? 


+ 


; : ,; 


+ 


216 


DS 


38 


1 


V 


I 


21? 


D9 


89 


♦ 




* 


218 


Dfl 


90 


4- 






219 


DB 


91 








220 


DC 


92 


1 






221 


I«D 


93 


1T 


IS 


S ir 


222 


HE 


94 


^ 


ss 


ss ^ 


223 


DF 


95 


a 


a 


tf 


224 


E0 


96 
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Standard 
Character Set 
PET CBM 
I 



r 
I 



-J y 



Alternate 
Character Set 
PET CBM 
1 



I 

Y 



y 



PET ASCII 


PEEK/ 






POKE 


DEC 


HEX 




225 


El 


9? 


226 


E2 


98 


-r ■". -? 


E3 


99 


228 


E4 


100 


229 


E5 


101 


230 


E6 


102 


231 


E7 


103 


232 


E8 


104 


t^'-.T'O' 


E9 


105 


234 




106 


235 




107 


236 




108 


237 




109 


i'38 




110 


239 




111 


2-10 




112 


241 




113 


242 




114 


243 




115 


244 




116 


245 




117 


246 




118 


24? 




119 


248 




120 


249 




121 


256 




122 


251 




123 


252 




124 


253 




125 


254 




126 


255 




127 
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Standard 


Alternate 


PET ASCII 


PEEK/ 


Character Set Character Set 




POKE 


PET 


CBM 


PET 


CBM 


DEC HEX 




H 




H 






128 


Si 


a 


sl 






129 


i3 


b 


iS 






138 


:« 


c 


* 






131 


ifl 


d 


id 






132 


a| 


e 


s( 






133 


a 


f 


a 






134 


ja 


g 


w 






135 


:i 


h 


si 






136 


ii 


i 


II 






13? 


M 


j 


u 






138 


31 


k 


St 






139 


■ 


1 


■ 






14© 


il 


m 


il 






141 


il 


n 


► Reverse j| 






142 


W 





M 






143 


si 


P 


Sl 






144 


:« 


q 


:« 






145 


a 


r 


El 






146 


a 


s 


a 






147 


ii 


t 


il 






148 


JU 


u 


JU 






149 


n 


V 


ffl 






150 


51 


w 


51 






151 


a 


X 


« 






152 


Ai 


V 


Al 






153 


«i 


z 


* 






154 


|« 




14 






155 


fl 











156 


m 




m 






157 


fi 




Si 






158 


PEN 




MR 
urn 






159 
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Standard 


Alternate 


Character Set 


Character Set 


PET CBM 


PET CBM 


■ 


■ 


U 


U 


w 


lit 


;;i 


;;3 


§a 


n 


# 


# 


KJ 


ja 


H 


a 


El 


a 


a 


a 


13 


?3 


a 


a 


HI 


a 


a 


a 


a 


a 


a 


a 


:s 


M 


ti 


m 


S) 


«j 


.« 


« 


a 


si 


a 


a 


a 


a 


a 


m 


a 


a 


a 


a 


■ 


a 


a 


a 


a 


a 


a 


3 



PET ASCII 
DEC HEX 



a 



a 



PEEK/ 
POKE 

16© 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
135 
136 
187 
188 
189 
190 
191 
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Standard 


Alternate 


Character Set Character Set 


PET 


CBM 


PET 


CBM 


Ml 




mm 




Mi 




■• 




;j 


Si 


a 


;a 


ii 


ifl 


b 


ii 


s 


:« 


c 


5 


a 


it] 


d 


B 


m 


4 


e 


fl 


m 


■A 


f 


m 


II 


:e 


g 


II 


II 


:i 


h 


II 


SI 


!l 


1 


» 


IS 


Ki 


J 


Ili 


u 


a 


k 


s. 


m 


* 


1 


■ 


e 


51 

,. Reverse < 
£1 


m 
n 


9 
US 


■ 


.« 





« 


■ 


d 


P 


* 


n 


:« 


q 


n 


■ 


si 


r 


9 


71 


a 


s 


^ 


II 


ii 


t 


II 


f! 


.u 


u 


0! 


8 


fll 


V 


C 


SI 


51 


w 


S3 


:a 


a 


X 


;a 


■ 


m 


V 


■ 


.T 


«4 


z 

V 


ra 


Ml 




Ml 




■ ■ 




Ml 




I 




m 




II 




ii 




.71 


88 


& 


m 


k 


K 


s 


it 



PET ASCII 
DEC HEX 



PEEK/ 
POKE 

192 

193 

194 

195 

196 

197 

198 

199 

268 

201 

202 

203 

204 

205 

206 

20? 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 
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Standard 


Alternate 


Character Set 


Character Set 


PET 


CBM 


PET 


CBM 


■ 




■ 




1 




1 




"■ 




■■ 




« 




II 




■ 




■ 




■ 




■ 




$>; 




i-&- 




■ 




■ 




as 




8! 




A 


23 


23 


A 


■ 




■ 




i: 




i: 




r 




r 




K 




V 




71 




71 





PET ASCII 
DEC HEX 



It 



r 



:i 
■ 
■ 



h 
u 

s 



ru 



PEEK/ 
POKE 

224 

•;••>=; 

226 
22? 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
24© 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
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APPENDIX B 



PET Error Messages 



Error messages may be displayed in response to just about anything you 
may key in at the PET keyboard or when your program is running. Both the PET 
BASIC interpreter and the operating system issue error messages, listed sepa- 
rately below. 

Whenever the PET BASIC interpreter detects an error, it displays a diag- 
nostic message, headed by a question mark, in the general form: 

?message ERROR IN LINE number 

where message is the type of error (listed alphabetically below) and number is the 
line number in the program where the error occurred (not present in immediate 
mode). Following any error message, BASIC returns to immediate mode and gives 
the prompt: 

READY. 

PET BASIC error messages are listed below, with two descriptive 
paragraphs: the first describes the cause of the error, and the second discusses 
possible ways of correcting the error. 
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BASIC Error Message 

Error Message 
BAD SUBSCRIPT 



CANT CONTINUE 



DIVISION BY ZERO 



FORMULA TOO COMPLEX 



Cause and Suggested Remedies 

An attempt was made to reference an array 
element that is outside the dimensions of the 
array. This may happen by specifying the 
wrong number of dimensions (different from 
the DIM statement), using a subscript larger 
than specified in the DIM statement or using a 
subscript larger than 10 for a non-dimen- 
sioned array. 

Correct the array element number to remain 
within the original dimensions, or change the 
array size to allow more elements. 

A CONT command was issued, but program 
execution cannot be resumed because the 
program has been altered, added to or cleared 
in immediate mode, or execution was stopped 
by an error. Program execution cannot be con- 
tinued past an error message. 

Correct the error. The most prudent course 
is to type RUN and start over. However, you 
can attempt to reenter the program at the 
point of interruption by a directed GOTO. 

An attempt was made to perform a division 
operation with a divisor of zero. Dividing by 
zero is not allowed. 

Check the values of variables (or constants!) 
in the indicated line number. Change the pro- 
gram so that the divisor can never be evalu- 
ated to zero or add a check for zero before per- 
forming the division. 

This is not a program error but indicates 
that a string expression in the program is too 
intricate for PET BASIC to handle. 

Break the indicated expression into two or 
more parts and rerun the program (this will 
also tend to improve program readability). 
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Error Message 
ILLEGAL DIRECT 



ILLEGAL QUANTITY 



NEXT WITHOUT FOR 



OUT OF DATA 



Cause and Suggested Remedies 

A command was given in immediate (direct) 
mode that is valid only in program mode. The 
following are invalid in immediate mode: 
DATA, DEF FN. GET, GET#, INPUT, INPUT#. 

Enter the desired operation as a (short) pro- 
gram and RUN it. 

A function is passed one or more 
parameters that are out of range. This 
message also occurs if the USR function is 
referenced before storing the subroutine ad- 
dress at memory locations 1 and 2. 

Check the ranges given in Chapter 4 for the 
function in question. Change the program to 
be sure that the argument will always be with- 
in range, or add a check before the function 
reference to make sure that the argument is 
allowed. If USR error, insert statements to 
POKE the subroutine address before the USR 
reference. 

A NEXT statement is encountered that is 
not tied to a preceding FOR statement. Either 
there is no FOR statement or the variable in 
the NEXT statement is not in a corresponding 
FOR statement. 

The FOR part of a FOR . . . NEXT loop must 
be inserted or the offending NEXT statement 
deleted. Be sure that the index variables are 
the same at both ends of the loop. 

A READ statement is executed but all of the 
DATA statements in the program have already 
been read. For each variable in a READ state- 
ment, there must be a corresponding DATA 
element. 

Add more DATA elements or restrict the 
number of READs to the current number of 
DATA elements. Insert a RESTORE statement 
to reread the existing data. Or add a flag at the 
end of the last DATA statement (any value not 
used as a DATA element may be used for the 
flag value) and stop READing when the flag 
has been read. 
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Error Message 
OUT OF MEMORY 



OVERFLOW 



REDIM'D ARRAY 



REDO FROM START 



Cause and Suggested Remedies 

The user program area of memory has been 
filled and a request is given to put more in, 
e.g., add a line to the program. This message 
may also be caused by multiple FOR . . . NEXT 
and/or GOSUB nestings that fill up the Stack; 
this is the case if ?FRE(0) shows considerable 
program area storage left. 

Simplify the program. Pay particular atten- 
tion to reducing array sizes. It may be necess- 
ary to restructure the program into overlays. 

A calculation has resulted in a number out- 
side the allowable range, i.e., the number is 
too big. The largest number allowed is 
1.70141 184E+38. 

Check your calculations. It may be possible 
to eliminate this error just by changing the 
order in which the calculations are pro- 
grammed. 

An array name appears in more than one 
DIM statement. This error also occurs if an ar- 
ray name is used (given a default size of 11) 
and later appears in a DIM statement. 

Place DIM statements near the beginning of 
the program. Check to see that each DIM 
statement is executed only once. DIM must 
not appear inside a FOR . . . NEXT loop or in a 
subroutine where either may be executed 
more than once. 

This is a diagnostic message during ah IN- 
PUT statement operation and is not a fatal er- 
ror. It indicates that the wrong type of data 
(string for numeric or vice versa) was entered 
in response to an INPUT request. 

Reenter the correct type data. INPUT will 
continue prompting until an acceptable 
response is entered. 
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Error Message 
RETURN WITHOUT GOSUB 



STRING TOO LONG 



SYNTAX 



TYPE MISMATCH 



UNDEF'D STATEMENT 



Cause and Suggested Remedies 

A RETURN statement was encountered 
without a previous matching GOSUB state- 
ment being executed. 

Insert a GOSUB statement or delete the 
RETURN statement. The error may be caused 
by dropping into the subroutine code inadver- 
tently. In this case correct the program flow. 
An END or STOP statement placed just ahead 
of the subroutine serves as a debugging aid. 

An attempt was made by use of the con- 
catenation operator (+) to create a string 
longer than 255 characters. 

Break the string into two or more shorter 
strings as part of the program operation. Use 
the LEN function to check string lengths 
before concatenating them. 

There is a syntax error in the line just en- 
tered (immediate mode) or scanned for execu- 
tion (program mode). This is the most com- 
mon error message, and is caused by such 
things as misspellings, incorrect punctuation, 
unmatched parentheses, extraneous charac- 
ters, etc. 

Examine the line carefully and make correc- 
tions. Note that syntax errors in a program are 
diagnosed at run time, not at the time the lines 
are entered from the keyboard. You can elimi- 
nate many syntax error messages by carefully 
scrutinizing newly entered program lines 
before running the program. 

An attempt was made to enter a string into 
a numeric Assignment variable or vice versa, 
or an incorrect type was given as a function 
parameter. 

Change the offending item to correct type. 
Refer to Chapter 4 for acceptable parameter 
types. 

An attempt was made to branch to a nonex- 
istent line number. 

Insert a statement with the necessary line 
number or branch to another line number. 
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Error Message 
UNDEF'D FUNCTION 



Cause and Suggested Remedies 

Reference was made to a user defined func- 
tion that has not previously been defined by 
appearing in a DEF FN statement. The defini- 
tion must precede the function reference. 

Define the function. Place DEF FN state- 
ments near the beginning of the program. 



OPERATING SYSTEM ERROR MESSAGES 



BAD DATA 



DEVICE NOT PRESENT 



FILE NOT FOUND 



FILE NOT OPEN 



FILE OPEN 



String data was input when numeric data 
was expected. 

Correct the input data to numeric, or 
change the program to accept string input. 

No device on the IEEE 488 Bus was present 
to handshake an attention sequence. The 
Status function will have a value of 2, indicat- 
ing a timeout. This message may occur for any 
I/O command. 

If the device identification is in error, correct 
the OPEN (or other) statement. If the state- 
ment is correct, especially if it has worked 
before, check the addressed device for mal- 
function, misconnection, or power off. 

The filename given in the LOAD or OPEN 
statement was not found on the tape (or other 
specified device). 

Check that you have the correct tape in the 
cassette. Check the filenames on the tape (or 
other medium) for possible spelling error in 
the program statement. 

An attempt was made to access a file that 
was not opened via the OPEN statement. 
Open the file. 

An attempt was made to open a file that has 
already been opened via a previous OPEN 
statement. 

Check logical file numbers (first parameter 
in the OPEN statement) to be sure a different 
number is used for each file. Insert a CLOSE 
statement if you want to reopen the same file 
for a different I/O operation. 
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Error Message 
LOAD 



NOT INPUT FILE 



NOT OUTPUT FILE 



VERIFY 



Cause and Suggested Remedies 

An unacceptable number of tape errors 
were accumulated on a tape load (more than 
31) that were not cleared on reading the re- 
dundant block. This message is issued in con- 
nection with the LOAD command (see 
Chapter 4). 

An attempt was made to read from a file 
that has been opened for output only. 

Check the READ# and OPEN statement 
parameters for correctness. Reading requires a 
zero as the third parameter of the OPEN state- 
ment (this is the default option). 

An attempt was made to write to a file that 
has been opened for input only. 

Check the PRINT# and OPEN statement 
parameters for correctness. Writing to a file 
requires a 1 (or a 2 if you want an EOT at the 
end of the file) as the third parameter in the 
OPEN statement. 

The program in memory and the specified 
file do not compare. This message is issued in 
connection with the VERIFY command (see 
Chapter 4). 
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APPENDIX C 



Program Examples Solved 



This appendix contains the solutions to the programming problems pre- 
sented at the conclusion of Chapter 3. The original program BLANKET as 
developed in Chapter 3 is listed first. The program variations that follow are based 
on modifying this original program according to the tasks presented in Chapter 3. 
For each program modification the program name is shown, followed by a pro- 
gram listing of the modified program. The Changes identify those lines in the orig- 
inal program that have been added, changed, or deleted. Under Comments is a 
description of the modifications that have been made. 
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BLANKET 



16 REN ******* ELAN K E T ******* 

2@ REM CONTINUOUS-LINE DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 

46 REM KEYBOARD 

50 REM ******************************* 

90 PRINT "HIT A KEY OR <R> TO END"; 

100 SET C*-IF €■$="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "IT 1 .; REM CLEAR SCREEN 

120 FOR 1=1 TO 920 : REM 920/40=23 LINES 

130 PRINT C*; 

14© NEXT 

150 PR I NT "PHEW! " 

1 SO GOTO 90 

170 END 



Program 1, CLEAN SCREEN. 



5 REM PROGRAM 1 CLEAN SCREEN 

10 REM ******* E L A H K E T ******* 

20 REM CONTINUOUS-LINE DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

30 PR I NT "73"; 



90 PRINT "HIT A KEY 

100 GET C*: IF C*="' 

105 IF C*=CHRt<13> 

110 PR I NT "73".; 

120 FOR 1=1 TO 920 

130 PRINT C$; 

140 NEXT 

150 PR I NT "PHEW! " 

160 GOTO 90 

170 END 



OR <R> TO END"; 

GOTO 1 OO 
GOTO 1 70 

REM CLEAR SCREEN 
■REM 920/40=23 LINES 



Changes 



Add: 

Change: 

Delete: 



Lines 5. 80 

None 

None 



Comments 

This is an easy change. All you have to do is print a Clear Screen literal just 
before the HIT A KEY message. The reset of the program stays the same. 
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Program 2, MESSAGES. 



5 REM PROGRAM 2 MESSAGES 

1@ REM ******* ELAN K E T ******* 

29 REM CONTINUOUS-LINE DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 
40 REM KEYBOARD 

50 REM ******************************* 
90 PR I NT "HIT A KEY".: 



100 GET C*IF C*=" 

105 IF C*=CHR*<13> 

110 PRINT"."]"; 

120 FOR 1=1 TO 920 

130 PRINT C#; 

14© NEXT 

150 PR I NT "PHEW! " 

155 PRINT"HIT A KEY OR 

160 GOTO 160 

170 END 



GOTO 100 
GOTO 170 

' : REM CLEAR SCREEN 
:REM 920/40=23 LINES 



<R> TO END" 



Changes 



Add: 


Lines 5, 155 


Change: 


Lines 90, 160 


Delete: 


None 


Comments 





This is also an easy change. First change the original message at line 90 to 
the shortened, initial message. Then add the repeating message to print at the end 
of the sequence just before the branch back at line 160. You also have to change 
the GOTO at line 160 to branch below the initial message line. 
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Program 3, SINGLE. 



5 REM PROGRAM 3 SINGLE 

10 REM ******* BLANKET ******* 

2© REM CONTINUOUS-LINE BISPLAV OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

90 PRINT "HIT A KEV OR <R> TO END".: 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PRINT":!"; REM CLEAR SCREEN 

120 FOR 1=1 TO 96& REM 960/40=24 LINES 

130 PRINT C*; 

140 NEXT 

150 PR I NT "PHEW! 

160 GOTO 90 

170 END 



Changes 



Add: 

Change: 

Delete: 



Line 5 

Lines 120. 150 

None 



Comments 

To combine the messages, add a semicolon (for continuous-line format) 
following the PHEW! message. The ten spaces were added following this word, 
but they could just as well have been put ahead of the second message. The FOR 
. . . NEXT ending count of 920 gives 920/80=23 lines. To get 24 lines, change 
the 920 to 960. 
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Program 4. CALLING YOU. 



5 REM PROGRAM 4 CALLING VOU 

10 REM ******* BLANKET ******* 

20 REM CONTINUOUS-LINE DISPLAY OF ONE 

CHARACTER ENTERED FROM THE 

KEYBOARD 

50 REM ******************************* 
60 GOSUB 90 
70 END 

90 PRINT"HIT A KEY OR <CR> TO END"; 
100 GET C*:IF C*="" GOTO 100 
105 IF C*=CHR*<13> GOTO 170 



30 REM 
40 REM 



lie pr i nt "rr ; 

120 FOR 1=1 TO 
130 PRINT C*; 
140 NEXT 
150 PR I NT "PHEW 
160 GOTO 90 
170 RETURN 



:REM CLEAR SCREEN 
920 :REM 920/40=23 LINES 



Changes 



Add: 

Change: 

Delete: 



Lines 5, 60, 70 
Line 170 
None 



Comments 

The program from line 90 through line 1 70 can be structured as a subroutine 
simply by changing line 1 70 from an END to a RETURN. Add a two-line main pro- 
gram just ahead of the subroutine to call it by a GOSUB 90 and then END. Note 
that the subroutine maintains control until the RETURN key is struck. 
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Program 5, SLOW DOWN. 



5 REM PROGRAM 5 SLOW DOWN 

10 REM ******* E L fl N K E T ******* 

20 REM CONTINUOUS-LINE DISPLAY OF ONE 

36 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

90 PRINT"HIT A KEV OR <R> TO END".; 

100 GET C*=IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

REM CLEAR SCREEN 
:REM 920/40=23 LINES 



110 PR I NT ".TV; 

120 FOR 1=1 TO 92E 

130 PRINT C*; 

135 FOR J=l TO 10 -NEXT 

14© NEXT I 

150 PR I NT "PHEW! " 

160 GOTO 90 

170 END 



:REM DELAY 



Changes 



Add: 

Change: 

Delete: 



Lines 5, 135 
Line 140 
None 



Comments 

A "do-nothing" FOR . . . NEXT loop acts as a simple delay loop. Looping 
from 1 to 10 after each character print approximately doubles the processing 
time. You can change the delay time just by changing the end index value (in this 
case 10). Optionally add the index variable I to the NEXT in line 140 Using index 
names on NEXT statements is a good idea, especially when you have nested FOR 
. . . NEXT loops. 
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Program 6, SPEED UP. 



5 REM PROGRAM 6 SPEED UP 

IS REM ******* BLANKET ******* 

20 REM CONTINUOUS-LINE DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

90 PRINT"HIT A KEY OR <R> TO END", 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR*a3:> GOTO 170 

106 FOR I=1T07 

107 C$=C:£+C$ 

108 NEXT REM C*=128 C*'S 

109 C*=C*+LEFT*<C*,102> REM C*=230 C*'S 

110 PR I NT "3"; REM CLEAR SCREEN 
120 FOR I=1T04 REM 230*4=23 LINES 
130 PRINT C*; 

140 NEXT 

150 PR I NT "PHEW! " 
1 60 GOTO 90 
170 END 



Changes 



Add: 

Change: 

Delete: 



Lines 5. 106-109 
Line 120 
None 



Comments 

Here you have to realize that one long string prints more quickly than a num- 
ber of shorter strings. Ideally we would print one 920-character string. However, 
on the PET, strings are limited to a maximum of 255 characters. The program 
breaks the 920 positions into four 230-character quadrants. At lines 106 to 109 it 
concatenates the keyed-in character into a 230-character string, which is a 
quarter of the screen area to be covered by the display character. The FOR . . . 
NEXT loop at lines 106 to 108 uses a pyramided concatenation to quickly "grow" 
the string to 1 28 characters. Then at line 1 09 the 1 28-character string is concate- 
nated to the leftmost 1 02 characters of the string to give a 230-character string of 
the display character. The FOR . . . NEXT print loop at lines 120 to 140 needs to 
print this longer string only four times to fill the screen. 
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Program 7, INDIAN BLANKET. 



5 

10 

29 
38 
40 



90 

100 

lie 

120 
130 
134 
135 
137 
140 
150 
155 
160 
170 



REM PROGRAM 7 INDIAN BLANKET 
i REM ******* BLANKET ******* 
REM CONTINUOUS-LINE DISPLAY OF 
REM CHARACTERS ENTERED FROM THE 
REM KEYBOARD 
REM ******************************* 
PRINT "HIT ANV KEYS".; 

GET C*IF C*="" GOTO 100 

PRINT":!"; -REM CLEAR SCREEN 

FOR 1=1 TO 920 REM 920/40=23 LINES 

PRINT C*; 

FOR J=l TO 40 NEXT J -REM DELAY 

GET D*:IF D*<>"" THEN C*=D* 

IF D*=CHR*<13> GOTO 170 

NEXT 

PR I NT "PHEW! " 

PRINT"HIT ANY KEYS OR <R> TO END", 

GOTO 1 80 

END 



Changes 

Add: 

Change: 

Delete: 



Lines 5, 134. 135. 137, 155 
Lines 20. 30. 90, 160 
Line 105 



Comments 

Line 135 allows different characters to be keyed in during the display. If a 
key has been struck, it is fetched as D$, and C$ is assigned the new character. 
Line 1 37 is added to handle the case where the RETURN key is struck during a dis- 
play sequence. The messages were modified by changing lines 90 and 160 and 
adding line 1 55 just as described for Program 2. The program is slowed down by a 
delay loop at line 1 34 exactly the same as in Program 5 (line 1 35) except that the 
delay time is lengthened by having an end value of 40 (instead of 1 as in Program 
5). 
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Program 8, PRINTOVER I. 



Changes 



PRINTOVER I 
BLANKET ******* 
CONTINUOUS-LINE DISPLAV OF ONE 
CHARACTER ENTERED FROM THE 
KEVBOARD 
******************************* 
90 PRINT "HIT A REV OR <R> TO END".; 
ISO GET C*-IF C*="" GOTO 100 
IF C*=CHR*<13> GOTO 170 



5 REM PROGRAM : 
10 REM ******* 
20 REM 
30 REM 
40 REM 
50 REM 



105 

110 PR I NT "."3"; 

120 FOR 1=1 TO ' 

130 PRINT C*, 

140 NEXT 

150 PR I NT "PHEW! 

160 GOTO 90 

170 END 



Add: 

Change: 

Delete: 



Line 5 
Line 110 
None 



REM CLEAR SCREEN 
:REM 230*4=23 LINES 



Comments 



just change the Clear 



This is the easiest program modification so far 
Screen literal at line 1 10 to a Home Cursor! 

However, the program display suffers from two things caused by not blank- 
ing the screen. First, there may be extraneous characters left in the bottom two 
rows that are not blanked out or overwritten by the program; this is because the 
PHEW! and HIT A KEY messages don't cover the entire lines, nor does the PET 
blank out the rest of the lines. Second, the character display appears not to move 
if the same character is keyed in again: this also holds for the two messages 
printed at the bottom of the screen. For this program's purposes, you would prefer 
to see some movement at the cursor position when printing a character over the 
same character. 
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Program 9, PRINTOVER II. 



5 REM PROGRAM 9 PRINTOVER II 

10 REM ******* B L fl N K E T ******* 

20 REM CONTINUOUS-LINE DISPLAV OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

85 Q*=" " : REM 39 BLANKS 

86 R*=" "+G$ REM 40 BLANKS 

87 S*=R*+Q* : REM BLANKS FOR 2 LAST LINES 
90 PRINT "HIT A KEY OR <R> TO END".; 

100 GET C*:IF C*="" GOTO 100 

105 IF C*=CHR$<13:> GOTO 170 

107 IF FO0 THEN GOSUB 600 : REM TO BLANK 2 LINES 

110 PR I NT ".«".; REM HOME CURSOR 

120 FOR 1=1 TO 919 REM 919/40=23 LINES 

130 PRINT C*.: 

135 PRINT "a";C*J "HI"; ^REM PRINT REV 

140 NEXT 

141 PRINT €■*■; 

142 GOSUB 610 REM TO BLANK 2 LINES 
150 PR I NT "PHEW! " 

155 FOR 1=1 TO 1000: NEXT REM PAUSE 

157 F=l 

160 GOTO 90 

170 END 

600 PRINT"islW*MM«MWWWra^ -REM TO NEXT-TO-LAST 

610 PRINT s*;":t*I"; LINE 

620 RETURN 

Changes 

Add: Lines 5. 85-87. 107, 135, 141-142. 155, 157, 600-620 

Change: Lines 110, 120 

Delete: None 



Comments 

The extensive changes made here illustrate the lengths you have to go to in 
order to smooth the rough edges of a simple program modification. (Recall that in 
PRINTOVER I you had to change just one character of the program to get the 
typeover effect!) 

To show movement at the printing of each character, the character is 
printed (line 130) and then in the next position the reverse of the character is 
printed (line 135). At line 135 the cursor is also backed up one so that the next 
loop iteration will print the character in the same position where the reverse 
character was just printed. The end loop index in line 1 20 is changed from 920 to 
919 so that the reverse character, which runs one ahead of C$, will not print 
beyond the 920th position. Line 141 has to be added to print C$ at this last 
character display position. 
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The remaining changes are for the message display lines. Lines 85 to 87 
create S$, a string of 79 blanks. This could have been done with a single state- 
ment (S$="<79 blanks>") but the three lines are more informative and make 
use of the PET concatenation feature. Why 79 instead of 80 blanks (since the two 
lines are each 40 characters long)? You will find, if you have tried this, that print- 
ing into the last character position of the screen always causes scrolling up one 
line. Therefore: first, you will never find a character that needs to be blanked sit- 
ting in the last position, so that blanking up to but not including the last position is 
far enough. And second, to perform the indicated task, you need to blank the bot- 
tom two lines of the screen but you do not want to scroll the screen up, thereby 
losing the top line of the character display and making the program look 
amateurish. 

After the character display has completed (at line 141), line 142 calls a 
subroutine beginning at line 610 to print the blank string S$, followed by a con- 
tinuous-line format indicator (;) to leave the cursor at the last position on the 
screen. Now you want to return the cursor to the beginning of the first blank line, 
which is done by cursor control characters to move the cursor up two lines and 
right one character position. The subroutine terminates and returns control to the 
main program, and at line 150 the program prints PHEW!. Then, as stipulated by 
the task, a delay loop causes the program to pause a few seconds by doing 
nothing for 1000 iterations. This completes the program's processing of the first 
display character. 

The task specifies that the program blank the two message lines before 
starting the new character display. This also has to be done for succeeding dis- 
play characters, i.e., all but the first one. A flag F is used to indicate the "first 
time'not first time" condition. Initially F is zero. After completing the first display 
character, at line 157 F is set to 1 so that at line 107 the Blank 2 Lines subroutine 
is called before beginning the display of the next character. The subroutine begin- 
ning at line 600 is called this time, which moves the cursor to the beginning of the 
message area by homing the cursor and then moving the cursor down 23 lines. 
Execution proceeds to line 610 to print the blank string S$ and return. (The cursor 
movements at line 610 are irrelevant now, since the next operation on returning 
from the subroutine to line 1 10 is to home the cursor.) After the cursor is homed, 
the display loop executes (lines 120 to 141). Now the program again calls the 
Blank 2 Lines subroutine (line 142) before printing the two messages. This is a 
redundant call, since the two lines are being blanked before the display loop for 
the second and subsequent display characters. The only time the lines need to be 
blanked at this point is for the first character. This line is probably better written: 

142 IF F=0 THEN GOSUB 610: REM TO BLANK 2 LINES 
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The simplified flowchart below summarizes the program flow. 



f PRINTOVER II ) 



Print 
HIT A KEY 
message 



I 



Print character over 

first 23 lines using 

typeover 



Blank 2 
message lines 



Print 2 lines 

of messages over 

blank lines 




Blank 2 
message lines 



Print character over 

first 23 lines using 

typeover 



Print 2 lines 

of messages over 

blank lines 



C 



3 
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Program 10. ALL THE WAY. 



5 REM PROGRAM 10 ALL THE WAV 
10 REM ******* BLANKET ******* 
20 REM CONTINUOUS-LINE DISPLAY OF ONE 
36 REM CHARACTER ENTERED FROM THE 
40 REM KEYBOARD 

90 PRINT "HIT A KEY OR <R> TO END'S 

100 GET C*=IF C*="" GOTO 100 

105 IF C*=CHR*<13> GOTO 170 

110 PR I NT "3"; REM CLEAR SCREEN 

120 FOR 1=1 TO 999 REM 999/40=25 LINES 

130 PRINT C*; 

140 NEXT 

150 POKE 33767, < ASC <C*> AND 1 28 >/2 OR <ASC<C*>AND63> 

160 GOTO 100 

170 END 



Changes 



Add: Line 5 

Change: Lines 120, 150, 160 

Delete: None 



Comments 

Following the hint given with the problem in Chapter 3, we can get the 
character to print in 999 positions simply by changing the value of the FOR . . . 
NEXT ending index in line 1 20 from the value 920 to the value 999. However, the 
program cannot PRINT into the 1000th screen position without scrolling the dis- 
play up one line. Recall that the previous program, PRINTOVER II, had to stop short 
of printing in the final position to avoid scrolling — but that program just wanted 
to blank the position, and it was found that the position would always be blank 
anyway.* The current program needs to display a character at that position. The 
only way to accomplish this with the PET is to POKE the character's screen value 
into address 33767, which corresponds to the last screen position. POKE does not 
use the cursor and thus does not produce scrolling. 



"The final position will be blank unless you POKEd a character there before running the program. If 
you wanted to be absolutely sure about blanking this last position, you could do so by POKEing a 
blank to it with a POKE 33767,32. 
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The tough part of this exercise is that the screen display code needed to 
POKE is different from the PET ASCII code that C$ is assigned. As covered in 
Chapter 6. the screen code is equivalent to a 6-bit ASCII subset with ASCII bit 7 
moved over into screen bit 6: 



6 5 4 3 2 1 



7 


6 


5 


4 


3 


2 


1 























7-bit ASCII 



= character 

1 = graphic 

(shifted) 



= character 

1 = graphic 

(shifted) 



This is what line 150 in the program does with the logic operation: 

(ASC(C$)AND128)/2 OR (ASC(C$)AND63) 
We'll go over this operation piece by piece. 



ASC(C$) 



AND 128 



n 



OR 



provides the numerical equivalent of the character C$. 
As a number, it can be manipulated arithmetically (and 
logically). 

128-| 0=80 16- This AND operation masks off (zeroes) all 
but the high-order bit (bit 7) of the ASCII code to isolate 
it. Regardless of the previous value of C$. after this 
operation the term has a value of: 

100000002 or 000000002- 
Divide by 2. In binary, division by 2 is equivalent to a 
logical right shift one bit. It admittedly requires a little 
background to come up with this step. After this opera- 
tion, the term has a value of: 

010000002 or 000000002- 

Thus, we have moved bit 7 of the ASCII code into bit 6 
and replaced bit 7 with a zero. 

This operation will combine the bit configuration 
already developed (010000002 or OOOOOOOO2) with the 
bit configuration yet to be discussed, (ASC(C$)AND63). 
The OR operation is performed last (see Table 3-4). 
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ASC(C$) again provides the numerical equivalent of C$. 

AND 63 63"io = 3F-|6- This AND operation zeroes the two high- 

order bits of the ASCII code (which were developed in 
the previous expresson), leaving the five low-order bits 
ready to be ORed in. After this operation, this term has a 
value of: 

00xxxxxx2 

where x=0 or 1. 

Now the OR operation is performed, producing the screen memory code 
equivalent to the ASCII code of the character C$. After the OR operation ,the com- 
bined term has a value of: 

01xxxxxx2 or 00xxxxxx2 

This is the value POKEd into the last screen position at line 150. Since no further 
messages are to be printed, line 160 branches past the HIT A KEY message. 
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Program 11. BOTTOM UP. 



5 REM PROGRAM 11 BOTTOM UP 

10 REM ******* BLANKET ******* 

20 REM CONTINUOUS-LINE DISPLAY OF ONE 

30 REM CHARACTER ENTERED FROM THE 

40 REM KEYBOARD 

50 REM ******************************* 

90 PR I NT" HIT A KEY OR <R> TO END".: 

1O0 GET C*-IF C*="" GOTO 100 

105 PRINT":]".; REM CLEAR SCREEN 

110 IF C*=CHR*<.13> GOTO 170 

115 PR I NT " M«SWWS«M^«««««i^^ 

117 POKE 33767, <RSC<C* > ANSI 28 >/2 OR <ASCX'C#>AND 63 > 

120 FOR 1=1 TO 999 ■ REM 999/40=25 LINES 

130 PRINT C*.: "111".: 

140 NEXT 

150 POKE 33767.. <ASC<C* > AND 123 >/2 OR CASCcC*>AND63> 

160 GOTO 100 

170 END 



Changes 



Add: Lines 5, 115, 117 

Change: Lines 120. 130, 160 

Delete: Line 150 

Exchange: Lines 105 and 110 



Comments 

To print in reverse order, the program first needs to display the character at 
the last screen position (lower right-hand corner). We saw in Program 1 that this 
could be done only by POKEing the screen character equivalent of the C$ 
character code; the mechanics were all worked out in Program 10. In the current 
program, line 1 17 is an exact duplicate of the Program 10 POKE line; it displays 
the C$ character at the last screen position. 

The next task is to print the character at the next-to-last position. At line 1 1 5 
the cursor is moved from its home position to position 1 of the last line by 24 cur- 
sor downs and then over to the next-to-last position by 38 cursor rights. After 
POKEing the last character (line 117), the program begins printing C$ to the other 
999 positions of the screen. After each PRINT (line 130) the cursor rests at the 
position following the position where the last character was printed. 
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character ■ > cursor 

just position 

printed 

The cursor is moved left two positions (also at line 130) so that the next 
PRINT will print into the position to the left of the character just printed. 






two cursor lefts 



cursor > 1 character 

position just 

printed 

As in Program 10. line 120 is changed to print 999 characters instead of 
920; the PHEW! message at line 150 is deleted; and at line 160 the program 
branches past the HIT A KEY message, which is printed only once at the begin- 
ning of the program. 

The last task, to clear the screen before ending, is accomplished simply by 
switching lines 105 and 110 so that the check for a RETURN key is done after 
clearing the screen. 
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APPENDIX D 



BASIC Bibliography 



Advanced BASIC . James S. Coan, Hayden Book Co., Rochelle Park, New Jersey. 
BASIC. Albrecht, Finkle. and Brown, Peoples Computer Company, Menlo Park, 

California, 1967. 
BASIC: A Computer Programming Language . C. Pegels, Holden-Day, Inc., 1973. 

Basic BASIC. James S. Coan, Hayden Book Company, Rochelle Park, New Jerey. 
BASIC Programming . J. Kemeny and T. Kurtz, Peoples Computer Company. Menlo 

Park. California, 1967. 
Entering BASIC . J. Sack and J. Meadows. Science Research Associates, 1973. 
A Guided Tour of Computer Programming in BASIC. T. Dwyer, Houghton Mifflin 

Company, 1973. 
Hands-On BASIC with a PET. Herbert D. Peckham, McGraw-Hill Book Company, 

New York, 1979. 
Programming Time Shared Computers in BASIC. Eugene H. Barnett. Wiley-lnter- 

science. Library of Congress #72-175789. 
What to Do After You Hit Return . Peoples Computer Company. Menlo Park, 

California. 



387 



APPENDIX E 



PET Newsletters and References 



This appendix contains a listing of PET-related publications for PET users 
who want to seek out continuing sources of information on the PET. Many of 
these sources contain notices of PET user groups and activities. No endorsement 
of these publications is implied. 
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Newsletters 

Calculators/Computers Magazine , Box 310, Menlo Park, California 94025. 
Bimonthly. $10.00 year. A magazine that has several PET articles in each issue. 

Commodore PET Users Club Newsletter , Commodore Business Machines, Inc., 
3330 Scott Blvd., Santa Clara, California 95050. Monthly. $15.00 year U.S., 
$25.00 year foreign. Official Commodore newsletter in U.S. 

Commodore PET Users Club Newsletter , Commodore Systems, 360 Eusten Rd.. 
London, England NW1 3BL. Bimonthly. £10. Official Commodore newsletter in 
Europe. 

CURSOR , P.O. Box 550, Goleta, California 9301 7. Monthly. $33.00 year. A cassette 
magazine — you receive a tape cassette of programs that can be loaded into 
the PET. Each cassette comes with a 2-page newsletter /program description. 

MICRO, The 6502 Journal , 8 Fourth Lane, South Chelmsford, Massachusetts 
01 824. Bimonthly. Single copies $1 .50, $6.00 year. A magazine that has several 
PET articles in each issue. For the experienced PET user. 

People's Computers , 1263 El Camino Real, Box E, Menlo Park, California 94025. 
Bimonthly. Single copies $1.50, $8.00 year. A magazine that has several PET 
articles in each issue. 

PET Gazette , 1929 Northport Drive. #6, Madison, Wisconsin 53704. Bimonthly. 
Free (donations appreciated). Of great value. 

Best of the PET Gazette , 1979. 96 pages. Free with donation to PET Gazette (see 
above). Retail value $10.00. 

The PET Paper , P.O. Box 43, Audubon, Pennsylvania 19407. 10 issues/year 
(monthly except July and December). Single copies $2.00. $15.00 per calendar 
year. 

PET User Notes , P.O. Box 371, Montgomeryville, Pennsylvania 18936. Bimonthly. 
$6.00 for 6 issues in U.S. and Canada, $12.00 for airmail to other countries. A 
good newsletter. 

PET Users Group Newsletter , Lawrence Hall of Science, University of California, 
Berkeley, California 94720. Monthly. $4.50 for 6 integral issues, checks payable 
to Regents of the University of California. Highly recommended. 

Purser's Reference List of Computer Cassettes . Quarterly. Single copy $4.00 
domestic, $5.00 foreign. $12.00 year domestic, $16.00 year foreign. Extensive 
list of PET programs available on cassette. 
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Reference Manuals 

MCS6500 Microcomputer Family Programming Manual , MOS Technology, Inc., 
950 Rittenhouse Road, Norristown, Pennsylvania 19401. $10.00 (price may 
vary with location). By the manufacturers of the 6502 microprocessor. 

MCS6500 Microcomputer Family Hardware Manual , MOS Technology, Inc., 950 
Rittenhouse Road. Norristown, Pennsylvania 19401. $10.00 (price may vary 
with location). By the manufacturers of the 6502 microprocessor. 

PET and the IEEE 488 Bus (GPIB) , E. Fisher and C. W. Jensen, Osbome/McGraw- 
Hill. 630 Bancroft Way. Berkeley, California 94710. 1980. $15.00. 

P ET 2001-8 Personal Computer User Manual , Commodore Business Machines, 
Inc., 3330 Scott Blvd.. Santa Clara, California 95050. (8K system). $9.95. By the 
manufacturers of the PET computer. 

PET 2001-16, 16N, 32, 32N Personal Computer User Manual , Commodore Busi- 
ness Machines, Inc., 3330 Scott Blvd., Santa Clara. California 95050. (16K and 
32K systems.) $9.95. By the manufacturers of the PET computer. 

6502 Assembly Language Programming , Lance Leventhal, Osbome/McGraw- 
Hill, 630 Bancroft Way. Berkeley, California 94710. 1979. $12.50. 
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APPENDIX F 



Conversion Tables 



This appendix contains the following reference tables: 

Hexadecimal-Decimal Integer Conversion 
Powers of Two 
Mathematical Constants 
Powers of Sixteen 
Powers of Ten 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION 

The table below provides for direct conversions between hexa- Hexadecimal fractions may be converted to decimal fractions 

decimal integers in the range — FFF ond decimal integers in as follows: 

the range 0-4095. For conversion of larger integers, the 

table values may be added to the following figures: 1. Express the hexadecimal fraction as on integer times 

16~ n , where n is the number of significant hexadecimal 
Hexadecimal Decimal Hexadecimal Decimal places to the right of the hexadecimal point. 

01 000 4 096 20 000 131072 0. CA9BF3, 6 = CA9 BF3, , x 16 -6 

02 000 8 1 92 30 000 1 96 608 

03 000 12 288 40 000 262 144 2. Find the decimal equivalent of the hexadecimal integer 

04 000 16 384 50 000 327 680 

05 000 20 480 60 000 393 216 CA9 BF3 = 13 278 195 

06 000 24 576 70 000 458 752 

07 000 28 672 80 000 524 288 3. Multiply the decimal equivalent by 16~ n 

08 000 32 768 90 000 589 824 

09 000 36 864 A0 000 655 360 13 278 195 

0A 000 40 960 B0 000 720 896 x 596 046 448 x IP' 16 

0B 000 45 056 CO 000 786 432 

OC 000 49 152 DO 000 851 968 

0D 000 53 248 E0 000 917 504 Decimal fractions may be converted to hexadecimal fractions 

0E 000 57 344 F0 000 983 040 by successively multiplying the decimal fraction by \6 ]Q . 

OF 000 61440 100 000 1048 576 After each multiplication, the integer portion is removed to 

10 000 65 536 200 000 2 097 152 form a hexadecimal fraction by building to the right of the 
11000 69 632 300 000 3 145 728 hexadecimal point. However, since decimal arithmetic is 

12 000 73 728 400 000 4 194 304 used in this conversion, the integer portion of each product 

13 000 77 824 500 000 5 242 880 must be converted to hexadecimal numbers. 

14 000 81 920 600 000 6 291 456 

15 000 86 016 700 000 7 340 032 Example: Convert 0.895i to its hexadecimal equivalent 

16 000 90 112 800 000 8 388 608 

17 000 94 208 900 000 9 437 184 

18 000 98 304 A00 000 10 485 760 

19 000 102 400 BOO 000 11534 336 
1A0OO 106 496 COO 000 12 582 912 

IB 000 110 592 D00 000 13 631488 

1C 000 114 688 E00 000 14 680 064 

ID 000 118 784 F00OO0 15 728 640 

IE 000 122 880 1000 000 16 777 216 

IF 000 126 976 2 000 000 33 554 432 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 
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0417 


0418 


0419 


0420 


0421 


0422 


0423 


0424 


0425 


0426 


0427 


0428 


0429 


0430 


0431 


IB 


0432 


0433 


0434 


0435 


0436 


0437 


0438 


0439 


0440 


0441 


0442 


0443 


0444 


0445 


0446 


0447 


1C 


0448 


0449 


0450 


0451 


0452 


0453 


0454 


0455 


0456 


0457 


0458 


0459 


0460 


0461 


0462 


0463 


ID. 


0464 


0465 


0466 


0467 


0468 


0469 


0470 


0471 


0472 


0473 


0474 


0475 


0476 


0477 


0478 


0479 


IE 


0480 


0481 


0482 


0483 


0484 


0485 


0486 


0487 


0488 


0489 


0490 


0491 


0492 


0493 


0494 


0495 


IF 


0496 


0497 


0498 


0499 


0500 


0501 


0502 


0503 


0504 


0505 


0506 


0507 


0508 


0509 


0510 


0511 


20 


0512 


0513 


0514 


0515 


0516 


0517 


0518 


0519 


0520 


0521 


0522 


0523 


0524 


0525 


0526 


0527 


21 


0528 


0529 


0530 


0531 


0532 


0533 


0534 


0535 


0536 


0537 


0538 


0539 


0540 


0541 


0542 


0543 


22 


0544 


0545 


0546 


0547 


0548 


0549 


0550 


0551 


0552 


0553 


0554 


0555 


0556 


0557 


0558 


0559 


23 


0560 


0561 


0562 


0563 


0564 


0565 


0566 


0567 


0568 


0569 


0570 


0571 


0572 


0573 


0574 


0575 


24 


0576 


0577 


0578 


0579 


0580 


0581 


0582 


0583 


0584 


0585 


0586 


0587 


0588 


0589 


0590 


0591 


25 


0592 


0593 


0594 


0595 


0596 


0597 


0598 


0599 


0600 


0601 


0602 


0603 


0604 


0605 


0606 


0607 


26 


0608 


0609 


0610 


0611 


0612 


0613 


0614 


0615 


n6)6 


0617 


0618 


0619 


0620 


0621 


0622 


0623 


27 


0624 


0625 


0626 


0627 


0628 


0629 


0630 


0631 


0632 


0633 


0634 


0635 


0636 


0637 


0638 


0639 


28 


0640 


0641 


0642 


0643 


0644 


0645 


0646 


0647 


0648 


0649 


0650 


0651 


0652 


0653 


0654 


0655 


29 


0656 


0657 


0658 


0659 


0660 


0661 


0662 


0663 


0664 


0665 


0666 


0667 


0668 


0669 


0670 


0671 


2A 


0672 


0673 


0674 


0675 


0676 


0677 


0678 


0679 


0680 


0681 


0682 


0683 


0684 


0685 


0686 


0687 


2B 


0688 


0689 


0690 


0691 


0692 


0693 


0694 


0695 


0696 


0697 


0698 


0699 


0700 


0701 


0702 


0703 


2C 


0704 


0705 


0706 


0707 


0708 


0709 


0710 


0711 


0712 


0713 


0714 


0715 


0716 


0717 


0718 


0719 


2D 


0720 


0721 


0722 


0723 


0724 


0725 


0726 


0727 


0728 


0729 


0730 


0731 


0732 


0733 


0734 


0735 


2E 


0736 


0737 


0738 


0739 


0740 


0741 


0742 


0743 


0744 


0745 


0746 


0747 


0748 


0749 


0750 


0751 


2F 


0752 


0753 


0754 


0755 


0756 


0757 


0758 


0759 


0760 


0761 


0762 


0763 


0764 


0765 


0766 


0767 


30 


0768 


0769 


0770 


0771 


0772 


0773 


0774 


0775 


0776 


0777 


0778 


0779 


0780 


0781 


0782 


0783 


31 


0784 


0785 


0786 


0787 


0788 


0789 


0790 


0791 


0792 


0793 


0794 


0795 


0796 


0797 


0798 


0799 


32 


0800 


0801 


0802 


0803 


0804 


0805 


0806 


0807 


0808 


0809 


0810 


0811 


0812 


0813 


0814 


0815 


33 


0816 


0817 


0818 


0819 


0820 


0821 


0822 


0823 


0824 


0825 


0826" 


0827 


0828 


0829 


0830 


0831 


34 


0832 


0833 


0834 


0835 


0836 


0837 


0838 


0839 


0840 


0841' 


0842 


0843 


0844 


0845 


0846 


0847 


35 


0848 


0849 


0850 


0851 


0852 


0853 


0854 


0855 


0856 


0857 


0858 


0859 


0860 


0861 


0862 


0863 


36 


0864 


0865 


0866 


0867 


0868 


0869 


0870 


0871 


0872 


0873 


0874 


0875 


0876 


0877 


0878 


0879 


37 


0880 


0881 


0882 


0883 


0884 


0885 


0886 


0887 


0888 


0889 


0890 


0891 


0892 


0893 


0894 


0895 


38 


0896 


0897 


0898 


0899 


0900 


0901 


0902 


0903 


0904 


0905 


0906 


0907 


0908 


0909 


0910 


0911 


39 


0912 


0913 


0914 


0915 


0916 


0917 


0918 


0919 


0920 


0921 


0922 


0923 


0924 


0925 


0926 


0927 


3A 


0928 


0929 


0930 


0931 


0932 


0933 


0934 


0935 


0936 


0937 


0938 


0939 


0940 


0941 


0942 


0943 


3B 


0944 


0945 


0946 


0947 


0948 


0949 


0950 


0951 


0952 


0953 


0954 


0955 


0956 


0957 


0958 


0959 


3C 


0960 


0961 


0962 


0963 


0964 


0965 


0966 


0967 


0968 


0969 


0970 


0971 


0972 


0973 


0974 


0975 


3D 


0976 


0977 


0978 


0979 


0980 


0981 


0982 


0983 


0984 


0985 


0986 


0987 


0988 


0989 


0990 


0991 


3E 


0992 


0993 


0994 


0995 


0996 


0997 


0998 


0999 


1000 


1001 


1002 


1003 


1004 


1005 


1006 


1007 


3F 


1008 


1009 


1010 


1011 


1012 


1013 


1014 


1015 


1016 


1017 


1018 


1019 


1020 


1021 


1022 


1023 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 













l 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


40 


1024 


1025 


1026 


1027 


1028 


1029 


1030 


1031 


1032 


1033 


1034 


1035 


1036 


1037 


1038 


1039 


41 


1040 


1041 


1042 


1043 


1044 


1045 


1046 


1047 


1048 


1049 


1050 


1051 


1052 


1053 


1054 


1055 


42 


1056 


1057 


1058 


1059 


1060 


1061 


1062 


1063 


1064 


1065 


1066 


1067 


1068 


1069 


1070 


1071 


43 


1072 


1073 


1074 


1075 


1076 


1077 


1078 


1079 


1080 


1081 


1082 


1083 


1084 


1085 


1086 


1087 


44 


1088 


1089 


1090 


1091 


1092 


1093 


1094 


1095 


1096 


1097 


1098 


1099 


1100 


1101 


1102 


1103 


45 


1104 


1105 


1106 


1107 


1108 


1109 


1110 


1111 


1112 


1113 


1114 


1115 


1116 


1117 


1118 


1119 


46 


1120 


1121 


1122 


1123 


1124 


1125 


1126 


1127 


1128 


1129 


1130 


1131 


1132 


1133 


1134 


1135 


47 


1136 


1137 


1138 


1139 


1140 


1141 


1142 


1143 


1144 


1145 


1146 


1147 


1148 


1149 


1150 


1151 


48 


1152 


1153 


1154 


1155 


1156 


1157 


1158 


1159 


1160 


1161 


1162 


1163 


1164 


1165 


1166 


1167 


49 


1168 


1169 


1170 


1171 


1172 


1173 


1174 


1175 


1176 


1177 


1178 


1179 


1180 


1181 


1182 


1183 


4A 


1184 


1185 


1186 


1187 


1188 


1189 


1190 


1191 


1192 


1193 


1194 


1195 


1196 


1197 


1198 


1199 


4B 


1200 


1201 


1202 


1203 


1204 


1205 


1206 


1207 


1208 


1209 


1210 


1211 


1212 


1213 


1214 


1215 


4C 


1216 


1217 


1218 


1219 


1220 


1221 


1222 


1223 


1224 


1225 


1226 


1227 


1228 


1229 


1230 


1231 


4C 


1232 


1233 


1234 


1235 


1236 


1237 


1238 


1239 


1240 


1241 


1242 


1243 


1244 


1245 


1246 


1247 


4E 


1248 


1249 


1250 


1251 


1252 


1253 


1254 


1255 


1256 


1257 


1258 


1259 


1260 


1261 


1262 


1263 


4F 


1264 


1265 


1266 


1267 


1268 


1269 


1270 


1271 


1272 


1273 


1274 


1275 


1276 


1277 


1278 


1279 


50 


1280 


1281 


1282 


1283 


1284 


1285 


1286 


1287 


1288 


1289 


1290 


1291 


1292 


1293 


1294 


1295 


51 


1296 


1297 


1298 


1299 


1300 


1301 


1302 


1303 


1304 


1305 


1306 


1307 


1308 


1309 


1310 


1311 


52 


1312 


1313 


1314 


1315 


1316 


1317 


1318 


1319 


1320 


1321 


1322 


1323 


1324 


1325 


1326 


1327 


53 


1328 


1329 


1330 


1331 


1332 


1333 


1334 


1335 


1336 


1337 


1338 


1339 


1340 


1341 


1342 


1343 


54 


1344 


1345 


1346 


1347 


1348 


1349 


1350 


1351 


1352 


1353 


1354 


1355 


1356 


1357 


1358 


1359 


55 


1360 


1361 


1362 


1363 


1364 


1365 


1366 


1367 


1368 


1369 


1370 


1371 


1372 


1373 


1374 


1375 


56 


1376 


1377 


1378 


1379 


1380 


1381 


1382 


1383 


1384 


1385 


1386 


1387 


1388 


1389 


1390 


1391 


57 


1392 


1393 


1394 


1395 


1396 


1397 


1398 


1399 


1400 


1401 


1402 


1403 


1404 


1405 


1406 


1407 


58 


1408 


1409 


1410 


1411 


1412 


1413 


1414 


1415 


1416 


1417 


1418 


1419 


1420 


1421 


1422 


1423 


59 


1424 


1425 


1426 


1427 


1428 


1429 


1430 


1431 


1432 


1433 


1434 


1435 


1436 


1437 


1438 


1439 


5A 


1440 


1441 


1442 


1443 


1444 


1445 


1446 


1447 


1448 


1449 


1450 


1451 


1452 


1453 


1454 


1455 


5B 


1456 


1457 


1458 


1459 


1460 


1461 


1462 


1463 


1464 


1465 


1466 


1467 


1468 


1469 


1470 


1471 


5C 


1472 


1473 


1474 


1475 


1476 


1477 


1478 


1479 


1480 


1481 


1482 


1483 


1484 


1485 


1486 


1487 


5D 


1488 


1489 


1490 


1491 


1492 


1493 


1494 


1495 


1496 


1497 


1498 


1499 


1500 


1501 


1502 


1503 


5E' 


1504 


1505 


1506 


1507 


1508 


1509 


1510 


1511 


1512 


1513 


1514 


1515 


1516 


1517 


1518 


1519 


5F 


1520 


1521 


1522 


1523 


1524 


1525 


1526 


1527 


1528 


1529 


1530 


1531 


1532 


1533 


1534 


1535 


60 


1536 


1537 


1538 


1539 


1540 


1541 


1542 


1543 


1544 


1545 


1546 


1547 


1548 


1549 


1550 


1551 


61 


1552 


1553 


1554 


1555 


1556 


1557 


1558 


1559 


1560 


1561 


1562 


1563 


1564 


1565 


1566 


1567 


62 


1568 


1569 


1570 


1571 


1572 


1573 


1574 


1575 


1576 


1577 


1578 


1579 


1580 


1581 


1582 


1583 


63 


1584 


1585 


1586 


1587 


1588 


1589 


1590 


1591 


1592 


1593 


1594 


1595 


1596 


1597 


1598 


1599 


64 


1600 


1601 


1602 


1603 


1604 


1605 


1606 


1607 


1608 


1609 


1610 


1611 


1612 


1613 


1614 


1615 


65 


1616 


1617 


16.18 


1619 


1620 


1621 


1622 


1623 


1624 


1625 


1626 


1627 


1628 


1629 


1630 


1631 


66 


1632 


1633 


1634 


1635 


1636 


1637 


1638 


1639 


1640 


1641 


1642 


1643 


1644 


1645 


1646 


1647 


67 


1648 


1649 


1650 


1651 


1652 


1653 


1654 


1655 


1656 


1657 


1658 


1659 


1660 


1661 


1562 


1663 


68 


1664 


1665 


1666 


1667 


1668 


1669 


1670 


1671 


1672 


1673 


1674 


1675 


1676 


1677 


1678 


1679 


69 


1680 


1681 


1682 


1683 


1684 


1685 


1686 


1687 


1688 


1689 


1690 


1691 


1692 


1693 


1694 


1695 


6A 


1696 


1697 


1698 


1699 


1700 


1701 


1702 


1703 


1704 


1705 


1706 


1707 


1708 


1709 


1710 


1711 


6B 


1712 


1713 


1714 


1715 


1716 


1717 


1718 


1719 


1720 


1721 


1722 


1723 


1724 


1725 


1726 


1727 


6C 


1728 


1729 


1730 


1731 


1732 


1733 


1734 


1735 


1736 


1737 


1738 


1739 


1740 


1741 


1742 


1743 


6D 


1744 


1745 


1746 


1747 


1748 


1749 


1750 


1751 


1752 


1753 


1754 


1755 


1756 


1757 


1758 


1759 


6E 


1760 


1761 


1762 


1763 


1764 


1765 


1766 


1767 


1768 


1769 


1770 


1771 


1772 


1773 


1774 


1775 


6F 


1776 


1777 


1778 


1779 


1780 


1781 


1782 


1783 


1784 


1785 


1786 


1787 


1788 


1789 


1790 


1791 



396 









HEXADECIMAL-DECIMAL INTEGI 

2 3 4 5 6 7 


ERCO 


NVER 


SION 


(Com 


inued 













1 


8 


9 


A 


B 


c 


D 


E 


F 


70 


1792 


1793 


1794 


1795 


1796 


1797 


1798 


1799 


1800 


1801 


1802 


1803 


1804 


1805 


1806 


1807 


71 


1808 


1809 


1810 


1811 


1812 


1813 


1814 


1815 


1816 


1817 


1818 


1819 


1820 


1821 


1822 


1823 


72 


1824 


1825 


1826 


1827 


1828 


1829 


1830 


1831 


1832 


1833 


1834 


1835 


1836 


1837 


1838 


1839 


73 


1840 


1841 


1842 


1843 


1844 


1845 


1846 


1847 


1848 


1849 


1850 


1851 


1852 


1853 


1854 


1855 


74 


1856 


1857 


1858 


1859 


1860 


1861 


1862 


1863 


1864 


1865 


1866 


1867 


1868 


1869 


1870 


1871 


75 


1872 


1373 


1874 


1875 


1876 


1877 


1878 


1879 


1880 


1881 


1882 


1883 


1884 


1885 


1886 


1887 


76 


1888 


1889 


1890 


1891 


1892 


1893 


1894 


1895 


1896 


1897 


1898 


1899 


1900 


1901 


1902 


1903 


77 


1904 


1905 


1906 


1907 


1908 


1909 


1910 


1911 


1912 


1913 


1914 


1915 


1916 


1917 


1918 


1919 


78 


1920 


1921 


1922 


1923 


1924 


1925 


1926 


1927 


1928 


1929 


1930 


1931 


1932 


1933 


1934 


1935 


79 


1936 


1937 


1938 


1939 


1940 


1941 


1942 


1943 


1944 


1945 


1946 


1947 


1948 


1949 


1950 


1951 


7A 


1952 


1953 


1954 


1955 


1956 


1957 


1958 


1959 


1960 


1961 


1962 


1963 


1964 


1965 


1966 


1967 


7B 


1968 


1969 


1970 


1971 


1972 


1973 


1974 


1975 


1976 


1977 


1978 


1979 


1980 


1981 


1982 


1983 


7C 


1984 


1985 


1986 


1987 


1988 


1989 


1990 


1991 


1992 


1993 


1994 


1995 


1996 


1997 


1998 


1999 


7D 


2000 


2001 


2002 


2003 


2004 


2005 


2006 


2007 


2008 


2009 


2010 


2011 


2012 


2013 


2014 


2015 


7E 


2016 


2017 


2018 


2019 


2020 


2021 


2022 


2023 


2024 


2025 


2026 


2027 


2028 


2029 


2030 


2031 


7F 


2032 


2033 


2034 


2035 


2036 


2037 


2038 


2039 


2040 


2041 


2042 


2043 


2044 


2045 


2046 


2047 


80 


2048 


2049 


2050 


2051 


2052 


2053 


2054 


2055 


2056 


2057 


2058 


2059 


2060 


2061 


2062 


2063 


81 


2064 


2065 


2066 


2067 


2068 


2069 


2070 


2071 


2072 


2073 


2074 


2075 


2076 


2077 


2078 


2079 


82 


2080 


2081 


2082 


2083 


2084 


2085 


2086 


2087 


2088 


2089 


2090 


2091 


2092 


2093 


2094 


2095 


83 


2096 


2097 


2098 


2099 


2100 


2101 


2102 


2103 


2104 


2105 


2106 


2107 


2108 


2109 


2110 


2111 


B4 


2112 


2113 


2114 


2115 


2116 


2117 


2118 


2119 


2120 


2121 


2122 


2123 


2124 


2125 


2126 


2127 


85 


2128 


2129 


2130 


2131 


2132 


2133 


2134 


2135 


2136 


2137 


2138 


2139 


2140 


2141 


2142 


2143 


86 


2144 


2145 


2146 


2147 


2148 


2149 


2150 


2151 


2152 


2153 


2154 


2155 


2156 


2157 


2158 


2159 


87 


2160 


2161 


2162 


2163 


2164 


2165 


2166 


2167 


2168 


2169 


2170 


2171 


2172 


2173 


2174 


2175 


88 


2176 


2177 


2178 


2179 


2180 


2181 


2182 


2183 


2184 


2185 


2186 


2187 


2188 


2189 


2190 


2191 


89 


2192 


2193 


2194 


2195 


2196 


2197 


2198 


2199 


2200 


2201 


2202 


2203 


2204 


2205 


2206 


2207 


.8A 


2208 


2209 


2210 


2211 


2212 


2213 


2214 


2215 


2216 


2217 


2218 


2219 


2220 


2221 


2222 


2223 


8B 


2224 


2225 


2226 


2227 


2228 


2229 


2230 


2231 


2232 


2233 


2234 


2235 


2236 


2237 


2238 


2239 


8C 


2240 


2241 


2242 


2243 


2244 


2245 


2246 


2247 


2248 


2249 


2250 


2251 


2252 


2253 


2254 


2255 


8D 


2256 


2257 


2258 


2259 


2260 


2261 


2262 


2263 


2264 


2265 


2266 


2267 


2268 


2269 


2270 


2271 


8E 


2272 


2273 


2274 


2275 


2276 


2277 


2278 


2279 


2280 


2281 


2282 


2283 


2284 


2285 


2286 


2287 


8F 


2288 


2289 


2290 


2291 


2292 


2293 


2294 


2295 


2296 


2297 


2298 


2299 


2300 


2301 


2302 


2303 


90 


2304 


2305 


2306 


2307 


2308 


2309 


2310 


2311 


2312 


2313 


2314 


2315 


2316 


2317 


2318 


2319 


91 


2320 


2321 


2322 


2323 


2324 


2325 


2326 


2327 


2328 


2329 


2330 


2331 


2332 


2333 


2334 


2335 


92 


2336 


2337 


2338 


2339 


2340 


2341 


2342 


2343 


2344 


2345 


2346 


2347 


2348 


2349 


2350 


2351 


93 


2352 


2353 


2354 


2355 


2356 


2357 


2358 


2359 


2360 


2361 


2362 


2363 


2364 


2365 


2366 


2367 


94 


2368 


2369 


2370 


2371 


2372 


2373 


2374 


2375 


2376 


2377 


2378 


2379 


2380 


2381 


2382 


2383 


95 


2384 


2385 


2386 


2387 


2388 


2389 


2390 


2391 


2392 


2393 


2394 


2395 


2396 


2397 


2398 


2399 


96 


2400 


2401 


2402 


2403 


2404 


2405 


2406 


2407 


2408 


2409 


2410 


2411 


2412 


2413 


2414 


2415 


97 


2416 


2417 


2418 


2419 


2420 


2421 


2422 


2423 


2424 


2425 


2426 


2427 


2428 


2429 


2430 


2431 


98 


2432 


2433 


2434 


2435 


2436 


2437 


2438 


2439 


2440 


2441 


2442 


2443 


2444 


2445 


2446 


2447 


99 


2448 


2449 


2450 


2451 


2452 


2453 


2454 


2455 


2456 


2457 


2458 


2459 


2460 


2461 


2462 


2463 


9A 


2464 


2465 


2466 


2467 


2468 


2469 


2470 


2471 


2472 


2473 


2474 


2475 


2476 


2477 


2478 


2479 


9B 


2480 


2481 


2482 


2483 


2484 


2485 


2486 


2487 


2488 


2489 


2490 


2491 


2492 


2493 


2494 


2495 


9C 


2496 


2497 


2498 


2499 


2500 


2501 


2502 


2503 


2504 


2505 


2506 


2507 


2508 


2509 


2510 


2511 


9D 


2512 


2513 


2514 


2515 


2516 


2517 


2518 


2519 


2520 


2521 


2522 


2523 


2524 


2525 


2526 


2527 


9E 


2528 


2529 


2530 


2531 


2532 


2533 


2534 


2535 


2536 


2537 


2538 


2539 


2540 


2541 


2542 


2543 


9F 


2544 


2545 


2546 


2547 


2548 


2549 


2550 


2551 


2552 


2553 


2554 


2555 


2556 


2557 


2558 


2559 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 













l 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


r 


AO 


2560 


2561 


2562 


2563 


2564 


2565 


2566 


2567 


2568 


2569 


2570 


2571 


2572 


2573 


2574 


2575 


Al 


2576 


2577 


2578 


2579 


2580 


2581 


2582 


2583 


2584 


2585 


2586 


2587 


2588 


2589 


2590 


2591 


A2 


2592 


2593 


2594 


2595 


2596 


2597 


2598 


2599 


2600 


2601 


2602 


2603 


2604 


2605 


2606 


2607 


A3 


2608 


2609 


2610 


2611 


2612 


2613 


2614 


2615 


2616 


2617 


2618 


2619 


2620 


2621 


2622 


2623 


A4 


2624 


2625 


2626 


2627 


2628 


2629 


2630 


2631 


2632 


2633 


2634 


2635 


2636 


2637 


2638 


2639 


A5 


2640 


2641 


2642 


2643 


2644 


2645 


2646 


2647 


2648 


2649 


2650 


2651 


2652 


2653 


2654 


2655 


A6 


2656 


2657 


2658 


2659 


2660 


2661 


2662 


2663 


2664 


2665 


2666 


2667 


2668 


2669 


2670 


2671 


A7 


2672 


2673 


2674 


2675 


2676 


2677 


2678 


2679 


2680 


2681 


2682 


2683 


2684 


2685 


2686 


2687 


A8 


2688 


2689 


2690 


2691 


2692 


2693 


2694 


2695 


2696 


2697 


2698 


2699 


2700 


2701 


2702 


2703 


A9 


2704 


2705 


2706 


2707 


2708 


2709 


2710 


2711 


2712 


2713 


2714 


2715 


2716 


2717 


2718 


2719 


AA 


2720 


2721 


2722 


2723 


2724 


2725 


2726 


2727 


2728 


2729 


2730 


2731 


2732 


2733 


2734 


2735 


AB 


2736 


2737 


2738 


2739 


2740 


2741 


2742 


2743 


2744 


2745 


2746 


2747 


2748 


2749 


2750 


2751 


AC 


2752 


2753 


2754 


2755 


2756 


2757 


2758 


2759 


2760 


2761 


2762 


2763 


2764 


2765 


2766 


2767 


AD 


2768 


2769 


2770 


2771 


2772 


2773 


2774 


2775 


2776 


2777 


2778 


2779 


2780 


2781 


2782 


2783 


AE 


2784 


2785 


2786 


2787 


2788 


2789 


2790 


2791 


2792 


2793 


2794 


2795 


2796 


2797 


2798 


2799 


AF 


2800 


2801 


2802 


2803 


2804 


2805 


2806 


2807 


2808 


2809 


2810 


2811 


2812 


2813 


2814 


2815 


BO 


2816 


2817 


2818 


2819 


2820 


2821 


2822 


2823 


2824 


2825 


2826 


2827 


2828 


2829 


2830 


2831 


Bl 


2832 


2833 


2834 


2835 


2836 


2837 


2838 


2839 


2840 


2841 


2842 


2843 


2844 


2845 


2846 


2847 


B2 


2848 


2849 


2850 


2851 


2852 


2853 


2854 


2855 


2856 


2857 


2858 


2859 


2860 


2861 


2862 


2863 


B3 


2864 


2865 


2866 


2867 


2868 


2869 


2870 


2871 


2872 


2873 


2874 


2875 


2876 


2877 


2878 


2879 


B4 


2880 


2881 


2882 


2883 


2884 


2885 


2886 


2887 


2888 


2889 


2890 


2891 


2892 


2893 


2894 


2895 


B5 


2896 


2897 


2898 


2899 


2900 


2901 


2902 


2903 


2904 


2905 


2906 


2907 


2908 


2909 


2910 


2911 


B6 


2912 


2913 


2914 


2915 


2916 


2917 


2918 


2919 


2920 


2921 


2922 


2923 


2924 


2925 


2926 


2927 


B7 


2928 


2929 


2930 


2931 


2932 


2933 


2934 


2935 


2936 


2937 


2938 


2939 


2940 


2941 


2942 


2943 


B8 


2944 


2945 


2946 


2947 


2948 


2949 


2950 


2951 


2952 


2953 


2954 


2955 


2956 


2957 


2958 


2959 


B9 


2960 


2961 


2962 


2963 


2964 


2965 


2966 


2967 


2968 


2969 


2970 


'2971 


2972 


2973 


2974 


2975 


BA 


2976 


2977 


2978 


2979 


2980 


2981 


2982 


2983 


2984 


2985 


2986 


2987 


2988 


2989 


2990 


2991 


BB 


2992 


2993 


2994 


2995 


2996 


2997 


2998 


2999 


3000 


3001 


3002 


3003 


3004 


3005 


3006 


3007 


BC 


3008 


3009 


3010 


3011 


3012 


3W3 


3014 


3015 


3016 


3017 


3018 


3019 


3020 


3021 


3022 


3023 


BD 


3024 


3025 


3026 


3027 


3028 


3029 


3030 


3031 


3032 


3033 


3034 


3035 


3036 


3037 


3038 


3039 


BE 


3040 


3041 


3042 


3043 


3044 


3045 


3046 


3047 


3048 


3049 


3050 


3D51 


3052 


3053 


3054 


3055 


BF 


3056 


3057 


3058 


3059 


3060 


3061 


3062 


3063 


3064 


3065 


3066 


3067 


3068 


3069 


3070 


3071 


CO 


3072 


3073 


3074 


3075 


3076 


3077 


3078 


3079 


3080 


3081 


3082 


3083 


3084 


3085 


3086 


3087 


CI 


3088 


3089 


3090 


3091 


3092 


3093 


3094 


3095 


3096 


3097 


3098 


3099 


3100 


3101 


3102 


3103 


C2 


3104 


3105 


3106 


3107 


3108 


3109 


3110 


3111 


3112 


3113 


3114 


3115 


3116 


3117 


3118 


3119 


C3 


3120 


3121 


3122 


3123 


3124 


3125 


3126 


3127 


3128 


3129 


3130 


3131 


3132 


3133 


3134 


3135 


C4 


3136 


3137 


3138 


3139 


3140 


3141 


3142 


3143 


3144 


3145 


3146 


3147 


3148 


3149 


3150 


3151 


C5 


3152 


3153 


3154 


3155 


3156 


3157 


3158 


3159 


3160 


3161 


3162 


3163 


3164 


3165 


3166 


3167 


C6 


3168 


3169 


3170 


3171 


3172 


3173 


3174 


3175 


3176 


3177 


3178 


3179 


3180 


3181 


3182 


3183 


C7 


3184 


3185 


3186 


3187 


3188 


3189 


3190 


3191 


3192 


3193 


3194 


3195 


3196 


3197 


3198 


3199 


C8 


3200 


3201 


3202 


3203 


3204 


3205 


3206 


3207 


3208 


3209 


3210 


3211 


3212 


3213 


3214 


3215 


C9 


3216 


3217 


3218 


3219 


3220 


3221 


3222 


3223 


3224 


3225 


3226 


3227 


3228 


3229 


3230 


3231 


Cfi 


3232 


3233 


3234 


3235 


3236 


3237 


3238 


3239 


3240 


3241 


3242 


3243 


3244 


3245 


3246 


3247 


CB 


3248 


3249 


3250 


3251 


3252 


3253 


3254 


3255 


3256 


3257 


3258 


3259 


3260 


3261 


3262 


3263 


CC 


3264 


3265 


3266 


3267 


3268 


3269 


3270 


3271 


3272 


3273 


3274 


3275 


3276 


3277 


3278 


3279 


CD 


3280 


3281 


3282 


3283 


3284 


3285 


3286 


3287 


3288 


3289 


3290 


3291 


3292 


3293 


3294 


3295 


CE 


3296 


3297 


3298 


3299 


3300 


3301 


3302 


3303 


3304 


3305 


3306 


3307 


3308 


3309 


3310 


3311 


CF 


3312 


3313 


3314 


3315 


3316 


3317 


3318 


3319 


3320 


3321 


3322 


3323 


3324 


3325 


3326 


3327 
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HEXADECIMAL-DECIMAL INTEGER CONVERSION (Continued) 








1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


DO 


3328 


3329 


3330 


3331 


3332 


3333 


3334 


3335 


3336 


3337 


3338 


3339 


3340 


3341 


3342 


3343 


Dl 


3344 


3345 


3346 


3347 


3348 


3349 


3350 


3351 


3352 


3353 


3354 


3355 


3356 


3357 


3358 


3359 


D2 


3360 


3361 


3362 


3363 


3364 


3365 


3366 


3367 


3368 


3369 


3370 


3371 


3372 


3373 


3374 


3375 


D3 


3376 


3377 


3378 


3379 


3380 


3381 


3382 


3383 


3384 


3385 


3386 


3387 


3388 


3389 


3390 


3391 


D4 


3392 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3400 


3401 


3402 


3403 


3404 


3405 


3406 


3407 


D5 


3408 


3409 


3410 


3411 


3412 


3413 


3414 


3415 


3416 


3417 


3418 


3419 


3420 


3421 


3422 


3423 


D6 


3424 


3425 


3426 


3427 


3428 


3429 


3430 


3431 


3432 


3433 


3434 


3435 


3436 


3437 


3438 


3439 


D7 


3440 


3441 


3442 


3443 


3444 


3445 


3446 


3447 


3448 


3449 


3450 


3451 


3452 


3453 


3454 


3455 


D8 


3456 


3457 


3458 


3459 


3460 


3461 


3462 


3463 


3464 


3465 


3466 


3467 


3468 


3469 


3470 


3471 


D9 


3472 


3473 


3474 


3475 


3476 


3477 


3478 


3479 


3480 


3481 


3482 


3483 


3484 


3485 


3486 


3487 


DA 


3488 


3489 


3490 


3491 


3492 


3493 


3494 


3495 


3496 


3497 


3498 


3499 


3500 


3501 


3502 


3503 


DB 


3504 


3505 


3506 


3507 


3508 


3509 


3510 


3511 


3512 


3513 


3514 


3515 


3516 


3517 


3518 


3519 


DC 


3520 


3521 


3522 


3523 


3524 


3525 


3526 


3527 


3528 


3529 


3530 


3531 


3532 


3533 


3534 


3535 


DD 


3536 


3537 


3538 


3539 


3540 


3541 


3542 


3543 


3544 


3545 


3546 


3547 


3548 


3549 


3550 


3551 


DE 


3552 


3553 


3554 


3555 


3556 


3557 


3558 


3559 


3560 


3561 


3562 


3563 


3564 


3565 


3566 


3567 


DF 


3568 


3569 


3570 


3571 


3572 


3573 


3574 


3575 


3576 


3577 


3578 


3579 


3580 


3581 


3582 


3583 


EO 


3584 


3585 


3586 


3587 


3588 


3589 


3590 


3591 


3592 


3593 


3594 


3595 


3596 


3597 


3598 


3599 


El 


3600 


3601 


3602 


3603 


3604 


3605 


3606 


3607 


3608 


3609 


3610 


3611 


3612 


3613 


3614 


3615 


E2 


3616 


3617 


3618 


3619 


3620 


3621 


3622 


3623 


3624 


3625 


3626 


3627 


3628 


3629 


3630 


3631 


E3 


3632 


3633 


3634 


3635 


3636 


3637 


3638 


3639 


3640 


3641 


3642 


3643 


3644 


3645 


3646 


3647 


E4 


3648 


3649 


3650 


3651 


3652 


3653 


3654 


3655 


3656 


3657 


3658 


3659 


3660 


3661 


3662 


3663 


E5 


3664 


3665 


3666 


3667 


3668 


3669 


3670 


3671 


3672 


3673 


3674 


3675 


3676 


3677 


3678 


3679 


E6 


3680 


3681 


3682 


3683 


3684 


3685 


3686 


3687 


3688 


3689 


3690 


3691 


3692 


3693 


3694 


3695 


E7 


3696 


3697 


3698 


3699 


3700 


3701 


3702 


3703 


3704 


3705 


3706 


3707 


3708 


3709 


3710 


3711 


E8 


3712 


3713 


3714 


3715 


3716 


3717 


3718 


3719 


3720 


3721 


3722 


3723 


3724 


3725 


3726 


3727 


E9 


3728 


3729 


3730 


3731 


3732 


3733 


3734 


3735 


3736 


3737 


3738 


3739 


3740 


3741 


3742 


3743 


EA 


3744 


3745 


3746 


3747 


3748 


3749 


3750 


3751 


3752 


3753 


3754 


3755 


3756 


3757 


3758 


3759 


EB 


3760 


3761 


3762 


3763 


3764 


3765 


3766 


3767 


3768 


3769 


3770 


3771 


3772 


3773 


3774 


3775 


EC 


3776 


3777 


3778 


3779 


3780 


3781 


3782 


3783 


3784 


3785 


3786 


3787 


3788 


3789 


3790 


3791 


EC 


3792 


3793 


3794 


3795 


3796 


3797 


3798 


3799 


3800 


3801 


3802 


3803 


3804 


3805 


3806 


3807 


EE 


3808 


3809 


3810 


3811 


3812 


3813 


3814 


3815 


3816 


3817 


3818 


3819 


3820 


3821 


3822 


3823 


EF 


3824 


3825 


3826 


3827 


3828 


3829 


3830 


3831 


3832 


3833 


3834 


3835 


3836 


3837 


3838 


3839 


FO 


3840 


3841 


3842 


3843 


3844 


3845 


3846 


3847 


3848 


3849 


3850 


3851 


3852 


3853 


3854 


3855 


Fl 


3856 


3857 


3858 


3859 


3860 


3861 


3862 


3863 


3864 


3865 


3866 


3867 


3868 


3869 


3870 


3871 


F2 


3872 


3873 


3874 


3875 


3876 


3877 


3878 


3879 


3880 


3881 


3882 


3883 


3884 


3885 


3886 


3887 


F3 


3888 


3889 


3890 


3891 


3892 


3893 


3894 


3895 


3896 


3897 


3898 


3899 


3900 


3901 


3902 


3903 


F4 


3904 


3905 


3906 


3907 


3908 


3909 


3910 


3911 


3912 


3913 


3914 


3915 


3916 


3917 


3918 


3919 


F5 


3920 


3921 


3922 


3923 


3924 


3925 


3926 


3927 


3928 


3929 


3930 


3931 


3932 


3933 


3934 


3935 


F6 


3936 


3937 


3938 


3939 


3940 


3941 


3942 


3943 


3944 


3945 


3946 


3947 


3948 


3949 


3950 


3951 


F7 


3952 


3953 


3954 


3955 


3956 


3957 


3958 


3959 


3960 


3961 


3962 


3963 


3964 


3965 


3966 


3967 


F8 


3968 


3969 


3970 


3971 


3972 


3973 


3974 


3975 


3976 


3977 


3978 


3979 


3980 


3981 


3982 


3983 


F9 


3984 


3985 


3986 


3987 


3988 


3989 


3990 


3991 


3992 


3993 


3994 


3995 


3996 


3997 


3998 


3999 


ft 


4000 


4001 


4002 


4003 


4004 


4005 


4006 


4007 


4008 


4009 


4010 


4011 


4012 


4013 


4014 


4015 


FB 


4016 


4017 


4018 


4019 


4020 


4021 


4022 


4023 


4024 


4025 


4026 


4027 


4028 


4029 


4030 


4031 


FC 


4032 


4033 


4034 


4035 


4036 


4037 


4038 


4039 


4040 


4041 


4042 


4043 


4044 


4045 


4046 


4047 


FD 


4048 


4049 


4050 


4051 


4052 


4053 


4054 


4055 


4056 


4057 


4058 


4059 


4060 


4061 


4062 


4063 


FE 


4064 


4065 


4066 


4067 


4068 


4069 


4070 


4071 


4072 


4073 


4074 


4075 


4076 


4077 


4078 


4079 


FF 


4080 


4081 


4082 


4083 


4084 


4085 


4086 


4087 


4088 


4089 


4090 


4091 


4092 


4093 


4094 


4095 



399 



POWERS OF TWO 



MATHEMATICAL CONSTANTS 



16 


4 


0.062 5 


32 


5 


0.031 25 


64 


6 


0.015 625 


128 


7 


0.007 812 5 


256 


8 


0.003 906 25 


512 


9 


0.001 953 125 


1 024 


10 


; 000 976 562 5 


2 048 


11 


0.000 488 281 25 



4 096 12 0.000 244 140 625 

8 192 13 0.000 122 070 312 5 

16 384 U 0.000 061 035 156 25 

32 768 15 0.000 030 517 578 125 
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8 589 934 592 33 000 000 000 116 415 321 826 934 814 453 125 
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1 099 511 627 776 40 O.OOO 000 000 000 909 494 701 772 928 237 915 039 062 5 

2 199 023 255 552 41 0.000 000 000 000 454 747 350 886 464 118 957 519 531 25 
4 398 046 511 104 42 0.000 000 000 000 227 373 675 443 232 059 478 759 765 625 

8 796 093 022 208 43 0.000 000 000 000 113 686 837 721 616 029 739 379 882 812 5 

17 592 186 044 416 44 0.000 000 00O 000 056 843 418 860 808 014 869 689 941 406 25 
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562 949 953 421 312 49 0.000 000 000 000 001 776 356 839 400 250 464 677 810 668 945 312 5 
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4 503 599 627 370 496 52 0.000 000 000 000 000 222 044 604 925 03! 308 084 726 333 618 164 062 5 

9 007 199 254 740 992 53 0.000 000 000 000 000 111 022 302 462 515 654 042 363 166 809 082 031 25 

18 014 398 509 481 984 54 0.000 000 000 000 000 055 511 151 231 257 827 02 1 181 583 404 541 015 625 

36 028 797 018 963 968 55 0.000 000 000 000 000 027 755 575 615 628 913 510 590 791 702 270 507 812 5 



72 057 594 037 927 936 
144 115 188 075 855 872 
288 230 376 151 711 744 
576 460 752 303 423 488 



0.000 000 000 000 000 013 877 787 807 814 456 755 295 395 851 135 253 906 25 

O.OOO 000 000 000 000 006 938 893 903 907 228 377 647 697 925 567 626 953 125 

O.OOO 000 000 000 000 003 469 446 951 953 6)4 188 823 848 962 783 813 476 562 5 

0.000 000 000 000 000 001 734 723 475 976 807 094 41 i 924 481 39! 906 73B 281 25 
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4 611 686 018 427 387 904 62 0.000 000 COO 000 000 000 216 840 434 497 100 886 801 490 560 173 986 342 285 156 25 
9 223 372 036 854 775 808 63 0.000 000 OOO 000 000 000 108 420 217 248 550 443 400 745 280 086 994 171 1 42 578 125 



400 



POWERS OF SIXTEEN^ 









16" 


n 






16" 
















1 





0.10000 


00000 ( 


30000 


00000 x 


10 










16 


1 


0.62500 


00000 I 


30000 


00000 x 


10"' 










256 


2 


0.39062 


50000 i 


30000 


00000 x 


10" 2 










4 096 


3 


0.24414 


06250 • 


30000 


00000 x 


10" 3 










65 536 


4 


0.15258 


78906 


25000 


00000 x 


lO" 4 








1 ( 


348 576 


5 


0.95367 


43164 


06250 


00000 x 


10" 6 








16 ; 


?77 216 


6 


0.59604 


64477 


53906 


25000 x 


10" 7 








268 ■ 


435 456 


7 


0.37252 


90298 


46191 


40625 x 


10" 8 






4 


294 ' 


?67 296 


8 


0.23283 


06436 


53869 


62891 x 


lO" 9 






68 


719 


476 736 


9 


0.14551 


91522 


83668 


51807 x 


10" ,0 

lO"' 2 
lO"' 3 
lO"' 4 






1 099 


511 . 


627 776 


10 


0.90949 


47017 


72928 


23792 x 






17 592 


186 


044 416 


11 


0.56843 


41886 


08080 


14870 x 






281 474 


976 


710 656 


12 


0.35527 


13678 


80050 


09294 x 




4 


503 599 


627 


370 496 


13 


0.22204 


46049 


25031 


30808 x 


lO" 15 
lO" 16 

io" ie 




72 


057 594 


037 


927 936 


14 


0.13877 


78780 


78144 


56755 x 




152 


921 504 


606 


846 976 


15 


0.86736 


17379 


88403 


5472 1 x 










POWERS OF TEN! 6 




















10" 


n 




1C 


i 
















1 





1.0000 


0000 


0000 


0000 












A 


1 


0.1999 


9999 


9999 


999A 












64 


2 


0.2 8F5 


C28F 


5C28 


F5C3 


X 


16" 








.3E8 


3 


0.4 189 


374B 


C6A7 


EF9E 


X 


16" 








2710 


4 


0.6 8 DB 


8BAC 


710C 


B296 


X 


16" 






1 


86A0 


5 


0.A7C5 


AC47 


1 B47 


8423 


X 


16" 






F 


4240 


6 


0.1 0C6 


F7A0 


B5ED 


8D37 


X 


16" 






98 


9680 


7 


0.1 AD7 


F29A 


BCAF 


4858 


X 


16" 






5F5 


E 100 


8 


0.2 AF 3 


1DC4 


6118 


73BF 


X 


16" 






3B9A 


CA00 


9 


0.44B8 


2FA0 


9B5A 


52CC 


X 


16" 




2 


540B 


E400 


10 


0.6 DF 3 


7F67 


5EF6 


EADF 


X 


16" 




17 


4876 


E800 


11 


O.AFEB 


FFOB 


CB24 


AAFF 


X 


16" 




E8 


D4A5 


1000 


12 


0.1 197 


9981 


2DEA 


1119 


X 


16" 




918 


4E72 


A000 


13 


0.1C25 


C2-6 8 


4976 


81C2 


X 


16" 




5AF3 


107A 


4000 


14 


0.2 D09 


370D 


4257 


3604 


X 


16 


3 


8D7E 


A4C6 


8000 


15 


0.480E 


BE7B 


9D58 


566D 


X 


16" 


23 


8652 


6FC1 


0000 


16 


0.734A 


CA5F 


6226 


FOAE 


X 


16" 


163 


4578 


5D8A 


0000 


17 


0.B877 


AA3 2 


36A4 


B449 


X 


16' 


DEO 


B6B3 


A764 


0000 


18 


0.1272 


5DD1 


D243 


ABA1 


X 


16* 


8AC7 


2304 


89E8 


0000 


19 


0.1 D83 


C94F 


B6D2 


AC35 


> 


16" 



-2 



40 1 



APPENDIX G 



Variations for Original ROMs 

(Revision Level 2) 



This appendix describes the differences between the new ROMs, as pre- 
sented in the chapter material, and the old ROMs. 

Chapter 2: STARTUP 

Asterisks (*) appear in place of the pound signs (#) in the initial display line 
of the original ROMs: 

•••COMMODORE BASIC*" 

You can use this as an indicator of which ROMs your PET has. 

Chapter 3: ARRAYS 

On the old ROMs, the total number of array elements in any one array is 
limited to 256. For example, for a one-dimensional array, elements may go from 
to 255. For a two-dimensional array with dimension 2 in the second subscript, ele- 
ments may go from (0,0), (1,0). . .(127,0), (01), (1,1). . .(127,1). 

An example of programming within this restriction is given below under 
"Chapter 5." 
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Chapter 3: DEVELOPING A PROGRAM, Interactive Programming 

In the old ROMs, the system location that enables the cursor to blink is loca- 
tion 548. To enable the cursor, you would use the statement: 

80 POKE 548,0 Enable cursor (old ROMs) 

instead of 

80 POKE 167,0 Enable cursor (new ROMs) 

Chapter 4: RND 

RND(O) is non-functional. An argument of zero returns a value that is con- 
stant, or nearly constant, and that may vary from PET to PET. 

You will have to use -Tl to generate random seeds. This is the method used 
in all of the examples in Chapter 5 under "Generating Random Numbers." 

Chapter 5: FILES 

This section is for PET users who are having problems reading data files 
using the old ROMs. If your PET has the old ROMs and you intend to use data files 
frequently, you should seriously consider replacing the old ROMs with the new, as 
the new ROMs ensure greater reliability when reading and writing data files. 

If you do plan to use the old ROMs, you must do a little extra programming 
to get around these problems. When writing data to the data tape, the old ROMs 
neglect to initialize the pointer to the start address of the cassette tape buffer, and 
also fail to leave enough blank space on the tape between physical records. Con- 
sequently, when the PET attempts to read the data back from the data tape, the 
problems may result in lost or garbled data. Here are a few precautions you can 
take to overcome these obstacles. 

1 . Initialize the pointer of the cassette buffer start address. Because 

the old ROMs fail to initialize the start address to the cassette tape buffer before a 

file is OPENed, you must be sure to do so before opening a file with a series of 

POKEs: 

cassette #1: POKE 243,1 22:POKE 244,2:OPEN 1,1,1 
cassette #2: POKE 243,58 :POKE 244,3:OPEN 2.2,1 

Memory address locations 243 and 244 point to the start address of the cur- 
rent tape buffer. By POKEing in the above values the pointer will be initialized pro- 
perly. 

2. Force interrecord gaps. The old ROMs do not leave enough blank 
space on the tape between physical records. When the PET attempts to read back 
the data with an INPUT* or GET*, if the physical records are too close together 
the data cannot be read, resulting in read errors and lost data. To prevent this, you 
can force larger interrecord gaps to be written between records by calling a 
routine to advance the tape each time the cassette buffer is emptied. 
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Before forcing an interrecord gap you must detect when the cassette buffer 
has written out a "physical record" or "block" of data to the tape. The buffer holds 
1 91 characters (or 1 91 bytes). A full buffer is a signal that a block of data was just 
written to the tape since the contents of the buffer are dumped only after it has 
reached its capacity. By detecting a full buffer, you can infer that a block of data 
was just written to the tape and an interrecord gap is needed. 

How to Detect a Full Buffer 

When writing data out to a tape, following each PRINT* statement the 
length of each data item is calculated and kept in an accumulator, which is then 
compared to the buffer limit (191 characters). When the accumulator equals 191 
the writing to the tape is stopped until an interrecord gap is written on the tape. 
Below is a sample program: 

J. POKE 243 , 122: POKE 244 , 2 : OPEN 1 , 1 , 1 

2© FOR X=l TO 100 

30 PRIHT#1,X 

40 A=LEN < STR* < X > > + 1 

50 IF <QT+fl»=191 GOSUE 1000 : REM *IF BUFFER FULL CALL SUB. 

60 QT=QT+fi TO ADVANCE TAPE* 

70 NEXT X 

80 CLOSE 1 

90 END 

Line 20 prints a variable. If the variable printed (in this case, X) is numeric it 
must be converted to string form so the LEN function may be used to determine 
X's length, as shown in line 40: 

40 A=LEN(STR$(X))+1 

One is added on to the lengths of the strings to include the carriage returns 
that are written on the tape following each data item. Line 50 accumulates the 
number of characters in the previous strings, (QT), plus A, and compares the total 
to 1 91 (the buffer limit). If the number of characters written to the tape (QT + A) is 
greater than or equal to 1 91 the entire buffer is written to the tape, and it is time to 
force an interrecord gap by calling the subroutine at 1000. However, if QT+A is 
less than 191 (QT+A< 191), the buffer is not yet full. Line 60 increments QT by A, 
and the process keeps repeating until the buffer is full, and all the data is written 
from the buffer to the tape, interspersed with the interrecord gaps. 

Advancing the Cassette Tape 

There are three necessary steps in the routine to advance the tape: 

1. Turn on the cassette tape motor (POKE 5941 1.53). 

2. Use a wait loop to stall program while tape is advancing. 

3. Turn off the cassette tape motor (POKE 5941 1,61). 
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POKE 5941 1.53 pokes "53" into memory address location 5941 1 which con- 
trols the cassette motor. Value 53 turns on the motor to advance the tape. Once 
the motor is on. a wait loop lets the tape advance for a few jiffies. The wait loop 
will be discussed shortly. To stop the tape, a POKE 5941 1 ,61 turns off the cassette 
motor. The length of the wait loop may be varied or altered, but these two POKEs 
are absolutely necessary to turn the cassette motor on and off. 

Following is a sample wait loop inserted between the two POKE statements: 



1086 POKE 59411,53 




REM *STP,RT TAPE MOTORS 


1010 T=T1 






1020 IF CTI-TX10 GOTO 


1 020 


:REM *WFlIT 10 JIFFIES* 


1038 POKE 53411,61 




REM *STOP TAPE MOTOR* 


1040 QT=0 






1050 RETURN 







Lines 1 01 to 1 020 make up the wait loop. Line 1 01 sets variable T to the 
current value of Tl. Tl is the number of jiffies since the PET was powered up or the 
clock was zeroed. (A jiffy is 1 /60 of a second.) Tl is incremented once every jiffy, 
or 60 times a second. By subtracting T from Tl, the elapsed time is calculated. The 
program must wait until ten jiffies (1 /60 of a second) has elapsed before the pro- 
gram can continue. While Tl increments, until the difference between Tl and T 
equals ten jiffies the program is stalled, letting the cassette tape advance. This 
blank space on the tape is the interrecord gap. Once (Tl-T) equals ten, the next 
statement turns off the cassette motor with a POKE 5941 1,61. 

The routine calculates the space between each record. The tape is advanced 
exactly the same amount between each physical record because the time be- 
tween POKEing on and off the cassette motor will always be ten jiffies: 



The length of the wait loop may be adjusted by changing the constant of the 
condition expression: 

Tl - T < X 

The larger the value of X, the larger the interrecord gap will be. If you're 
unsure how long the interrecord gap should be, keep the wait loop between 5 and 
30 jiffies. It is always better to have the interrecord gap too long than too short. 
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There is one potential problem with this routine, though it is doubtful you 
will ever encounter the problem. If the PET has been powered up for close to 
twenty-four hours, or you have set the internal clock close to the twenty-fourth 
hour, the routine might hang up during the wait loop. At 24:00:00 the jiffy clock is 
reset from 5184000 jiffies to zero. If T is assigned within a few jiffies of 5184000 
both Tl and the jiffy clock will be reset to zero. The result is that the condition 
Tl-T<10 will always be true (0000008-5183998 <10> and the wait loop will 
hang up infinitely because Tl-T will never be greater than nine. It is very improba- 
ble that this will ever happen to you, but you should use caution if the jiffy clock is 
nearing the twenty-fourth hour. 

Here is another way to advance the tape: 

POKE 59411,53 : REM *STfiRT TAPE MOTOR* 
POKE 514,0 REM *ZERO JIFFV CLOCK* 

WRIT 514,16 -REM *WfiITS 16 JIFFIES* 
POKE 59411,61 REM *STOP TAPE MOTOR* 

POKE 514,0 pokes a zero into the low-order byte of the internal clock at 
memory address 514, wiping out the current jiffy time and resetting the clock to 
zero. The WAIT 514,16 inhibits further program action until the clock has incre- 
mented 16 jiffies. Meanwhile, the tape advances until memory address location 
514 contains 16 and the following POKE turns the cassette motor off. 

There is one drawback with this wait loop. Every time the jiffy clock is reset 
to zero the PET loses track of time. Therefore, this routine should NOT be used if it 
is important within the program that real time be kept or used in any way. 

Here is yet another way to implement a wait loop during the data tape 
advance: 

POKE 59411,53 

FOR 1=1 TO 60: NEXT I 

POKE 59411,61 

This method is simple but less accurate than the previous two. Using a FOR 
...NEXT loop, the program is stalled as the loop increments to the maximum value 
of I before turning off the motor. However, the time it takes to increment through a 
FOR. . . NEXT loop cannot be measured as accurately as time measured in jiffies, 
and thus the interrecord gaps cannot be precise. One advantage with this method 
is that it does not alter or inhibit the use of the jiffy clock in any way. 
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Let's go back to the original wait loop and combine it with the routine that 
detects a full buffer. Below is a sample program which writes 100 numbers to a 
data tape with a FOR... NEXT loop. Within the loop is a check for a full buffer. If the 
buffer is full the data is written to the tape, and the subroutine at 1 000 is called to 
create an interrecord gap: 

1 6 POKE 243 , 1 22 : POKE 244 , 2 : OPEN 1,1,1 

20 FOR K=l TO 100 

30 PRINT#1,X 

40 A=LEN < STR$ < X > > + 1 

50 IF <QT+fi}>=191 GOSUB 1000 

60 QT=GT+A 

70 NEXT X 

80 CLOSE 1 

90 EMU 

1000 POKE 59411,53 

1010 T=TI 

1020 IF CTI-TX10 GOTO 1O20 

1030 POKE 59411,61 

104O QT=0 

1050 RETURN 



REM *IF BUFFER FULL CALL 
SUB. TO ADVANCE TAPE 



REM *START TAPE MOTOR* 

REM *WAIT 10 JIFFIES* 
REM *STOP TAPE MOTOR 
REM *RESET ACCUMULATOR 



where: 

A is the length of the printed string plus 1 for carriage return 

QT is the accumulator to add lengths of printed strings. 

If you follow these suggestions and routines you should have little or no 
troubles writing and reading data files. But, if you find that you cannot get the files 
to work even with these routines, you should install the new ROMs in your PET. 

Chapter 5: GENERATING RANDOM NUMBERS 

Do not try to use RND(-RND(0)) to generate random seeds: it will not work. 
Instead, use — Tl as shown in all of the examples. 

The RANDOM VERSION 2A sample program in Chapter 5 will not work on 
the original ROMs because of the 256-element array limitation. A second version 
of the program is shown below. It shows the lengths you have to go to in order to 
program with the 256-element array limitation. In this program the 1000-element 
table is divided into four quarters of 250 elements each. 



5 REM RANDOM VERSION 2A 

10 REM ******* B L A N K E T ******* 
RANDOM DISPLAV OF ONE 

CHARACTER ENTERED FROM THE 
KEYBOARD 
******************************* 
DIM Tl <249> , T2<249> , T3<249:> , T4<249> 
T=4 :REM NUMBER OF TABLES 
N=250 =REM NO OF ELEMENTS 
GOSUB 200 REM INITIALIZE TABLES 
PRINT "HIT A KEV OR <R> TO END", 
95 N 1 =N : N2=N = N3=N : N4=N 
100 GET C*:IF C*="" GOTO 108 



20 REM 
30 REM 
40 REM 
50 REM 
78 



90 
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105 IF C*=CHR*<13> GOTO 170 

110 PRINT":]".; -REM CLEAR SCREEN 

J. 20 X=RND<-TI> REM START NEW SEED 

125 C=<flSC<C*>flND128>/2 OR <FlSC<C*>fiND63> 

126 FOR L=1TO1000 REM 1 FOR EACH SPOT 

127 T":'=T*RNIKi:> + l : REM PICK A TAELE 

128 ON IV. GOSUE 300.. 400.. 500, 600 : REM GO PICK AN ELEMENT 
130 POKE fl'c : REM niSPLAV CHAR 

140 NEXT L 
160 GOTO 95 
170 END 

199 REM **SUER TO INITIALIZE TABLES** 

200 FOR 1=6 TO H-l T1(I)=I NEXT 

2 1 © FOR I =0 TO N- 1 : T2 '.: I > = 1 +250 : NEXT 
220 FOR 1=0 TO N-l : T3< I > =I+500 : NEXT 
230 FOR I=@ TO N-l : T4< I > = 1+750 : NEXT 
249 RETURN 

299 REM **SUBROUTINE FOR TAELE Tl** 

300 N1=N1-1 

305 REM IF EMPTY, GO TO ANOTHER TAELE 

310 IF NK6 THEN ON I NT C3*RNE < 1 > + 1 > GOTO 400,500,600 

320 fl?i=<Nl + l>*RND<l> REM PICK AH ELEM 

330 A=T1 < AS > +32768 : REM FORM POKE ADDR 

340 TF-T1 < AK> ■ Tl < A;0=T1 <N1 > : Tl <N1 >=TP : REM SWAP ELEMENTS 

350 RETURN 

399 REM **SUBROUTINE FOR TAELE T2** 

400 H2=N2-1 

410 IF N2<0 THEN OH I NT C 3*RNIK 1 > + l > GOTO 300,500,600 

420 AX=<N2+1 >*RNIK 1 > 

430 fl=T2<AK> +32768 

440 TP=T2CA;;> ■ 12<.H>:>=12<.U2:> ■ T2CN2>=TP 

450 RETURN 

499 REM **SUBROUTINE FOR TAELE T3** 

500 N3=N3-1 

510 IF N3<0 THEN ON INT<3*RND< 1 > + l :> GOTO 300,400,690 

520 A"i= <. N3+ 1 > *RND < 1 > 

530 R=T3<flK> +32768 

540 TP=T3 < AJi ) : T3 < AX > =T3 < N3 > ■ T3 < N3 > =TP 

550 RETURN 

599 REM **SUEROUTINE FOR TAELE T4** 

600 N4=N4-1 

610 IF N4<0 THEN ON INT<3*RND< 1 >+i > GOTO 300,400,500 

620 A."i= < N4+ 1 .-J *RND < 1 > 

630 A=T4CA";>+3276S 

640 TP=T4 < AX > : T4 < A": > =T4 < N4 > = T4 < N4 > =TP 

650 RETURN 
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Chapter 6: MEMORY MAP 

All of the changes in Chapter 6 are based on the fact that the memory map 
for the old ROMs was reorganized for the new ROMs. The memory map for the old 
ROMs is shown in Table G-1. at the back of this appendix. 



Chapter 6: PET BASIC INTERPRETER 

The system locations holding principal pointers in the user program area are 
different for the old ROMs. Your pointers, in place of Figure 6-2, are as shown in 
Figure G-1. Figure G-2, replacing Figure 6-4, also reflects these changes. 



Pointer address 



Start of program 
(247. 248) Start of text 



(144, 145) DATA statement pointer 



(124, 125) Start of variables 



(126, 127) End of variables 



(128. 129) End of arrays 



y 



(130, 131) End of strings 



(132, 133) Top of memory 



BASIC 
Statements 



Variables 



Arrays 



Typical Values 



1024 
1025 

1879 



1946 



2072 



2231 



_- 8172 (8K system) 



Strings 



8191 (8K system) 



Figure G-1. Principal Pointers in User Program Area 



U0 



Pointer Address 

(144, 145) DATA statement pointer 

(247. 248) OS Start of program 

(122. 123) Start of text 

(1 24, 1 25) Start of variables • 

(126, 127) Start of arrays 

(128, 129) Start of free space 



Memory 
Location 



(130, 131) End of strings.. 
(132, 1 33) Top of memory ^ » 




8191 (8K system) 



Figure G-2. User Program Area on Power-up 
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Chapter 6: VARIABLES, Floating Point Variable Format 

Use the following program to examine floating point representations: 

i@ INPUT ft 

20 X=PEEK ■;' 1 £5 .':■ *25S+PEEK C 1 24 > +2 

30 PRINT ft; " = "; PEEK '::>0;PEEK'::K+i::'.;PEKC:«:+2>.; PEEK '::X+3>; PEEK '::X+4> 

40 GOTO 10 

This is the same one given in Chapter 6 except for the system locations at line 20 
being PEEKed. 

Chapter 6: CONSTANTS 

Instead of pointer (42.43), the pointer in the diagrams is (124.125). 

Chapter 6: ARRAY STORAGE FORMAT 

Use the following program for viewing sample Array Area entries: 

J.0 DIM F\<5>,By.<2,2),C*<10> REM SAMPLE ARRAYS 

20 FOR 1=0 TO 5:fta> = INEKT 

30 FOR 1=0 TO 2: FOR J=0 TO 2 : B";X.J.. I > = ltf@+3*I+J : NEXT J.. I 

40 FOR 1=0 TO 1 &■€■$■< I >=CHR$<ftSC<" ft" > + 1 > tiEXJ 

50 X=PEEKa2?::'*256+PEEK<126:> : REM POINT TO ARRAY AREA 

60 V=PEEK<129>*256+PEEK<12S? REM END OF ARRAYS 

70 FOR I=X TO V 

86 PRINT I, PEEK U > 

90 GET D*'IF D*="" THEN GOTO 90 : REM HIT KEY FOR NEXT ELEMENT 

106 NEXT 

This is the same as the program in Chapter 6 except for the system locations 
accessed in lines 50 and 60. 

Chapter 6: ASSEMBLY LANGUAGE PROGRAMMING 

For the old ROMs, item 2, Top of Core discussion should read as follows: 

2. Top of Memory. Memory locations 1 34 and 1 35 contain the pointer to 
the top of memory. On 8K PETs this value is 81 92. You can temporarily set the top 
of memory pointer to a lower address, thereby reserving a number of bytes from 
the new pointer value to the actual top of memory for storage of an assembly 
language program. To set the pointer, say, down 1000 bytes, you will need to 
store the value 7192 (8192-1000) converted into low, high address order, e.g.: 

High Low 

7192 10 =1C18 16 -1C 16 =28 10 and 18 16 = 24 10 
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So 24 is to be stored at location 134 (low byte), and 28 is to be stored at location 
135 (high byte). The following instructions can be used: 



i AL=PEEK < 1 34 > : RH=PEEK < 1 3E 
2@ POKE 132, 24: POKE 135,28: 



REM SAVE CURRENT POINTER 
REM TOP OF CORE NOW = 7132 



100 POKE 134, AL 
118 END 



POKE 135, AH 



REM RESTORE POINTER 



Chapter 6: USR 

Since the accumulator is maintained in different system locations on the old 
ROMs, the accumulator description will read as follows: 

The parameter value is passed to the USR subroutine in system locations 
that function as a floating point accumulator (FAC) for all functions. The FAC 
resides in six bytes from memory locations 1 76 to 181 (B0-) g— B5-| g). The FAC has 
the following format: 

Memory location: 176 177 178 179 180 181 (FAC 

Floating 
Point) 



_ 0=positive 
-1=negative 





f 

1 

11 

1 

_1. 


Fraction 




Sign 



Exponent 



Like floating point variables, the exponent is stored in excess 1 28 format, and the 
fraction is normalized with the high-order bit of byte 177 (the high-order byte of 
the fraction) set to 1. The difference between this format and the variable format 
is that the high-order 1 bit is present in byte 1 77 of the FAC. An extra byte (1 81 ) is 
used to hold the sign of the fraction. (This is done for ease of manipulation by the 
functions that use the FAC). 



PET User Notes, Volume 1. Issue 6, Sept.-Oct. 1978. pg. 14, 
"Cassette File Usage Summary" by Jim Butterfield. 

Best of the PET GAZETTE, pg. 38 
"On Data Files:", by Michael Richter. 
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Table G-1. PET Memory Map (Rev 2 ROMs) 



Memory Address 



Decimal 




1-2 

3 

4 

5 
6 
7 



95 



96 



97 
98 



99 
100 



101 
102-103 
104-111 

112-113 

114-115 

116 

117 
118 
119 
120 

121 



Hexadecimal 



0000 
0001-0002 



0003 



0004 

0005 
0006 
0007 



8 


0008 


9 


0009 


10-89 


000A-0059 


90 


005A 


91 


005B 


92 


005C 


93 


005D 


94 


005E 



Sample Value 



Decimal 



005F 



0060 



0061 
0062 



0063 
0064 



0065 
0066-0067 
0068-006F 

0070-0071 

0072-0073 

0074 

0075 
0076 
0077 
0078 
0079 



76 
826 




127 
127 

60 
3 

48 





255 



104 

101 

2 

14525 

62983 

1 

234 







Description 



Hexadecimal 



Page (0-255) 



4C 
033A 



00 



00 

00 
7F 
7F 

3C 
03 
30 
00 
00 
FF 



00 
00 



00 



00 



00 
00 



00 
00 



68 
0065 
0002 

38BD 

F607 

01 

EA 
00 
00 
00 
00 



USR Function Locations 

Constant 6502 JMP instruction 
User address jump vector 

Terminal I/O Maintenance 

Active input device number 

(0=keyboard) 
No. of nulls to print after CR/LF 

(0 = normal) 
Cursor position for POS function (0-255) 
Terminal width (unused) 
Limit for scanning source columns 

(unused) 
Line number storage preceding buffer 
Constant 

BASIC input line buffer (80 bytes) 
General counter for BASIC 
Delimiter flag for quote mode scan 
Input buffer pointer, general counter 

Evaluation of Variables 

Flag for dimensioned variables 
Flag for variable type: 

00=numeric 

FF—string 
Flag for numeric variable type: 

00—floating point 

80=integer 
Flag to allow reserved words in strings 

and remarks 
Flag to allow subscripted variable 
Flag for input type: 
0-INPUT 
64-GET 

152=READ 
Flag sign of TAN function 
Flag to suppress output: 

+ normal 

— suppressed 
Index to next available descriptor 
Pointer to last string temporary 
Table of double-byte descriptors that 

point to variables (8 bytes) 
Indirect index #1 
Indirect index #2 

Pseudo-register for function operands 
(6 bytes) 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










Data BASIC Storage Maintenance 


122-123 


007A-007B 


1025 


0401 


Pointer to start of text 


124-125 


007C-007D 


1946 


079A 


Pointer to start of variables 


126-127 


007E-007F 


2072 


0818 


Pointer to end of variables 


128-129 


0080-0081 


2231 


08B7 


Pointer to end of arrays 


130-131 


0082-0083 


8192 


2000 


Pointer to start of strings (moving down) 


132-133 


0084-0085 


8191 


1FFF 


Pointer to end of strings (top of available 
RAM) 


134-135 


0086-0087 


8192 


2000 


Pointer to limit of BASIC memory 


136-137 


0088-0089 


2000 


07D0 


Line number of current line being 
executed 
— 1 in 137=direct mode statement 


138-139 


008A-008B 


110 


006E 


Line number for last line executed 
before CONT 


140-141 


008C-008D 


1922 


0782 


Pointer to next line to be executed after 
CONT 


142-143 


008E-008F 


1150 


047E 


Line number of current DATA line 


144-145 


0090-0091 


1879 


0757 


Pointer to current DATA line 


146-147 


0092-0093 


13 


000D 


Next DATA item within line 


148-149 


0094-0095 


89 


0059 


Current variable name 


,150-151 


0096-0097 


2032 


07F0 


Pointer to current variable 


152-153 


0098-0099 


2032 


07F0 


Pointer to next FOR. . . NEXT variable 


154-155 


009A-009B 


31999 


7CFF 


Pointer to current operator in ROM table 


156 


009C 





00 


Mask for current logical operator 


157-158 


009D-009E 


898 


0382 


Pointer to user function FN definition 


159-160 


009F-00A0 


104 


0068 


Pointer to a string description 


161 


00 A 1 


221 


DD 


Length of string 


162 


00A2 


3 


03 


Constant used by garbage collection 
routine 


163 


00A3 


76 


4C 


Constant 6502 JMP instruction 


164-165 


00A4-00A5 





0000 


Jump vector for user function FN 


166-171 


OOA6-O0AB 


129 


81 


Floating point accumulator #3 (6 bytes) 


172-173 


0OAC-O0AD 





00 


Block transfer pointer #1 


174-175 


00AE-00AF 





00 


Block transfer pointer #2 


176-181 


00B0-00B5 






Floating point accumulator (FAC)#1 
(6 bytes) 









00 


176 OOB0 Exponent +128 









00 


177 00B1 Fraction MSB Floating 
Point 









00 


178 00B2 Fraction 









00 


179 00B3 Fraction MSB Integer 









00 


180 00B4 Fraction LSB 









00 


181 00B5 Sign of fraction (0 if zero or 
positive. —1 if negative) 


182 


00B6 





00 


Copy of FAC #1 sign of fraction 


183 


00B7 





00 


Counter for number of bits to shift to 
normalize FAC #1 


184-189 


00B8-00BD 





00 


Floating point accumulator #2 (6 bytes) 


190 


OOBE 





00 


Overflow byte for floating argument 


191 


OOBF 





00 


Copy of FAC #2 sign of fraction 


192-193 


00C0-00C1 


258 


0102 


Conversion pointer 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 



Decimal 



194-199 

200 

201-202 

203-223 

224-225 

226 

227-228 

229-230 

231-233 

234 

235-237 

238 

239 

240 

241 

242 



256-up 



511-down 



512-514 



Hexadecimal 



OOC2-00C7 

00C8 

00C9-00CA 

00CB-00DF 

OOE0-O0E1 

00E2 

OOE3-O0E4 

00E5-00E6 

00E7-00E9 

OOEA 

00EB-00ED 

OOEE 

OOEF 

00F0 

00F1 

00F2 



Sample Value 



Decimal 



243-244 


00F3-00F4 


245 


00F5 


246 


00F6 


247-248 


00F7-OOF8 


249-250 


O0F9-OOFA 


251 


OOFB 


252 


OOFC 


253 


OOFD 


254 


OOFE 


255 


OOFF 



0100-up 



01FF-down 



0200-0202 



230 

173 

1929 

201 

33728 



33792 

1929 

254 



192 



5 

255 

63 

39 

634 

23 

10 

1024 

3100 



9 




243 



32 



3801352 



Hexadecimal 



E6 

AD 

0789 

C9 

83C0 

00 

8400 
0789 
FE 
00 
CO 
00 
05 
FF 
3F 
27 

027A 

17 

OA 
0400 
0C1C 
00 
09 
00 

09 
F3 



Description 



Page 1 
20 



00 



RAM Subroutines 

Routine to fetch next BASIC character 
Entry to refetch current character 
Pointer to source text 
Work area for RND function 

OS Page Zero Storage 
Pointer to start of line where cursor is 

flashing 
Column position where cursor is flash- 
ing (0-79) 
Utility pointer 
End of current program 
Utility 

Flag for quote mode. = not quote mode 
Utility 

No. of characters in current file name 
Current logical file number 
GPIB primary address 
GPIB device number 
Max. no. of characters on current line 

(39.79) 
Pointer to start of current tape buffer 

(634 or 826) 
Line number where cursor is flashing 

(0-24) 
I/O storage 
OS pointer to program 
Pointer to current file name 
Number of Insert keys pushed to go 
Serial bit shift word 
Number of blocks remaining to 

read /write 
Serial word buffer 

Overflow byte for binary to ASCII con- 
versions 

'(256-511) 

Tape read working storage (up to 511) 

and conversion stg. 
256-318 For error correction in tape 

reads (62 bytes) 
256-266 Binary to ASCII conversion 

(11 bytes) 
Stack (down to 256) 



Page 2-3 (512-1023) 



3A0108 



OS Working Storage 

24-hour clock incremented every 1 /60 
second (jiffy). Resets every 5.184.000 
jiffies (24 hours). Stored in low to 
high order. 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


515 


0203 


255 


FF 


Matrix coordinate of key depressed at 
current jiffy. 
1-80=key 
255=no key 


516 


0204 





00 


Status of SHIFT key: 
0=unshifted (up) 
1— shifted (down) 


517-518 


0205-0206 


37916 


941 C 


Secondary jiffy clock 


519 


0207 


52 


34 


Interrupt driver flag for cassette #1 ON 
switch 


520 


0208 





00 


Interrupt driver flag for cassette #2 ON 
switch 


521 


0209 


255 


FF 


Keyswitch PIA 


522 


020A 





00 


Utility 


523 


020B 





00 


I/O flag: 
0=LOAD 
1=VERIFY 


524 


020C 





00 


I /O status byte 


525 


020D 





00 


Number of characters in keyboard buffer 
(0 to 9) 


526 


020E 





00 


Flag to indicate reverse field on 
(0 = normal) 


527-536 


020F-0218 


85 


55 


Keyboard buffer (10 bytes) 


537-538 


02 19-021 A 


34048 


8500 


Hardware interrupt vector 


539-540 


021B-021C 





0000 


6502 BRK instruction interrupt vector 


541-546 


021D-0222 






Input routine storage (6 bytes) 






13 


0D 


542 021 E No. of characters on screen 


547 


0223 


255 


FF 


line 
Key image 


548 


0224 


1 


01 


Flag for cursor enable: 
0=Enable 
1=Disable 


549 


0225 


11 


OB 


Counter to flip cursor (20 to 1) 


550 


0226 


32 


20 


Copy of character at current cursor posi- 
tion 


551 


0227 





00 


Flag for cursor on/off: 
0=cursor moved 
1 =blink started 


552 


0228 





00 


Flag for tape write 


553-577 


0229-0241 






High byte of screen line addresses 
553-559=128 (lines 1-7) 
560-565 = 129 (lines 8-13) 
566-572 = 130 (lines 14-20) 
573-577 = 131 (lines 21-25) 


578-587 


0242-024B 


5 


05 


Table of logical numbers of open files 


588-597 


024C-0255 


5 


05 


Table of device numbers of open files 


598-607 


0256-025F 


255 


FF 


Table of secondary address modes of 
open files 


608 


0260 





00 


Flag for input source: 
0=keyboard buffer 
1 =screen memory 


609 


0261 





00 


I/O utility 


610 


0262 


1 


01 


Number of open files (index into tables) 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 



Decimal 



611 

612 

613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 

624 

625 
626 
627 

628 
629 

630 



Hexadecimal 



32768-36863 8000-8FFF 



36864-49151 



49152-49153 
49154-49155 
49156-49157 



0263 

0264 

0265 
0266 
0267 
0268 
0269 
026A 
026B 
026C 
026D 
026E 
026F 

0270 

0271 
0272 
0273 

0274 
0275 

0276 



Sample Value 



Decimal 



631 


0277 


632 


0278 


633 


0279 


634-825 


027A-0339 


-826-1017 


033A-03F9 


1018-1023 


03FA-03FF 


1024-8191 


0400-1 FFF 


192-32767 


2000-7FFF 



9000-BFFF 



C000-C001 
C002-C003 
C004-C005 








255 

8 

















128 

9 

1 

173 

28 



12 



Hexadecimal 



03 

00 
00 
00 
00 
00 
FF 
00 
08 
00 
00 
00 

00 

00 
00 
00 

00 
00 

00 



00 
80 
09 
01 
AD 
1C 



Description 



00 Default input device number 

(0=keyboard) 
Default output device number 

(3=screen) 
Tape parity byte 
I/O utility 
I/O utility 

Byte pointer in filename transfer 
I/O utility 
I/O utility 
I/O utility 
Serial bit count 

Count of redundant tape blocks 
Tape utility 
Cycle counter flip for each bit read from 

tape 
Countdown synchronization on tape 

write 
Tape buffer 1 index to next character 
Tape buffer 2 index to next character 
Countdown synchronization on tape 

read 
Flag to indicate bit/byte tape error 
Flag to indicate tape error 

0=first half-byte marker not written 
Flag to indicate tape error 

0=2nd half-byte marker not written 

/Tape dropout counter 
Tape dropout counter 
Flag for tape read current function 
Checksum utility 

Tape buffer for cassette #1 (192 bytes) 
Tape buffer for cassette #2 (192 bytes) 
Utility space/unused. 

Page 4-32 (1024-8191) 



Page 



50973 
50760 
52277 



00 I User program area 

Page 33-128 (8192-32767) 

00 I Expansion RAM 

Page 129-144 (32768-36863) 

0C TV RAM 

32768-33767 Display memory 
(1000 bytes) 

Page 145- 192" (36864-491 51) 

00 I Expansion ROM 

193-232 BASIC (49152-59391) 

Pointers to BASIC Routines 



C71D 
C648 
CC35 



Pointer -1 to END" 
Pointer -1 to FOR 
Pointer -1 to NEXT 



* These memory locations contain 
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the address of the byte preceding the specified BASIC routines. 



Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 



Decimal 



49158-49159 

49160-49161 

49162-49163 

49164-49165 

49166-49167 

49168-49169 

49170-49171 

49172-49173 

49174-49175 

49176-49177 

49178-49179 

49180-49181 

49182-49183 

49184-49185 

49186-49187 

49188-49189 

49190-49191 

49192-49193 

49194-49195 

49196-49197 

49198-49199 

49200-49201 

49202-49203 

49204-49205 

49206-49207 

49208-49209 

49210-49211 

49212-49213 

49214-49215 

49216-49217 

49218-49219 

49220-49221 

49222-49223 
49224-49225 
49226-49227 
49228-49229 
49230-49231 
49232-49233 
49234-49235 
40236-49237 
49238-49239 
49240-49241 
49242-49243 
49244-49245 
49246-49247 
49248-49249 
49250-49251 
49252-49253 
49254-49255 
49256-49257 
49258-49259 
49260-49261 
49262-49263 



Hexadecimal 



C006-C007 
C008-C009 
C00A-COOB 
C0OC-C00D 
C00E-CO0F 
C010-C011 
C012-C013 
C014-C015 
C016-C017 
C018-C019 
C01A-C01B 
C01C-C01D 
C01E-C01F 
C020-C021 
C022-C023 
C024-C025 
C026-C027 
C028-C029 
C02A-C02B 
C02C-C02D 
C02E-C02F 
C030-C031 
C032-C033 
C034-C035 
C036-C037 
C038-C039 
C03A-C03B 
C03C-C03D 
C03E-C03F 
C040-C041 
C042-C043 
C044-C045 

C046-C047 

C048-C049 

C04A-C04B 

C04C-C04D 

C04E-C04F 

C050-C051 

C052-C053 

C054-C055 

C056-C057 

C058-C059 

C05A-C05B 

C05C-C05D 

C05E-C05F 

C06O-C061 

C062-C063 

C064-C065 

C066-C067 

C068-C069 

C06A-C06B 

C06C-C06D 

C06E-C06F 



Sample Value 



Decimal 



51183 
51909 
51935 
53104 
52003 
51356 
51100 
51060 
51231 
50956 
51071 
51145 
51250 
50971 
51266 
55041 
65492 
65495 
65498 
53908 
55032 
51582 
51614 
51012 
50599 
51055 
51588 
65501 
65471 
65474 
51870 
50512 

56075 
56222 
56106 

53860 
53893 
56868 
57157 
55487 
56992 
57246 
57253 
57326 
57416 
55014 
54868 
54089 
54917 
54883 
54724 
54744 



Hexadecimal 



Description 



C73F 


Pointer -1 to DATA 


CAC5 


Pointer -1 to INPUT* 


CADF 


Pointer -1 to INPUT 


CF70 


Pointer -1 to DIM 


CB23 


Pointer -1 to READ 


C89C 


Pointer -1 to LET 


C79C 


Pointer -1 to GOTO 


C774 


Pointer -1 to RUN 


C81F 


Pointer -1 to IF 


C70C 


Pointer -1 to RESTORE 


C77F 


Pointer -1 to GOSUB 


C7C9 


Pointer -1 to RETURN 


C832 


Pointer -1 to REM 


C71B 


Pointer -1 to STOP 


C842 


Pointer -1 to ON 


D701 


Pointer -1 to WAIT 


FFD4 


Pointer -1 to LOAD 


FFD7 


Pointer -1 to SAVE 


FFDA 


Pointer -1 to VERIFY 


D294 


Pointer -1 to DEF 


D6F8 


Pointer -1 to POKE 


C97E 


Pointer -1 to PRINT* 


C99E 


Pointer -1 to PRINT 


C744 


Pointer -1 to CONT 


C5A7 


Pointer -1 to LIST 


C76F 


Pointer -1 to CLR 


C984 


Pointer -1 to CMD 


FFDD 


Pointer -1 to SYS 


FFBF 


Pointer -1 to OPEN 


FFC2 


Pointer -1 to CLOSE 


CA9E 


Pointer -1 to GET 


C550 


Pointer -1 to NEW 


DBOB 


Pointer to SGN" 


DB9E 


Pointer to INT 


DB2A 


Pointer to ABS 


0000 


Pointer to USR pointer 


D264 


Pointer to FRE 


D285 


Pointer to POS 


DE24 


Pointer to SQR 


DF45 


Pointer to RND 


D8BF 


Pointer to LOG 


DEAO 


Pointer to EXP 


DF9E 


Pointer to COS 


DFA5 


Pointer to SIN 


DFEE 


Pointer to TAN 


E048 


Pointer to ATN 


D6E6 


Pointer to PEEK 


D654 


Pointer to LEN 


D349 


Pointer to STR$ 


D685 


Pointer to VAL 


D663 


Pointer to ASC 


D5C4 


Pointer to CHR$ 


D5D8 


Pointer to LEFTS 



These memory locations contain the address of the first byte of the specified BASIC routines. 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


49264-49265 


C070-C071 


54788 


D604 


Pointer to RIGHTS 


49266-49267 


C072-C073 


54799 


D60F 


Pointer to MID$ 


49268-57343 


C074-DFFF 






BASIC Routines 

Starting Address Function 

49836 C2AC FOR. . . NEXT stack 

check 
49882 C2DA Insert line space 

marker 
49949 C31D Stack overflow check 
50007 C357 Error message 

abort 
50057 C389 READY 
50068 C394 Execute line 
50092 C3AC Handle new line 
50224 C430 Rechain lines after 

insert/delete 
50274 C462 Input line 
50297 C479 Get character from 

input line 
50317 C48D Keyword encoder 
50466 C522 Line number 

search 
50513 C551 NEW 
50586 C59A Set pointer to start 

of program 
50600 C5A8 LIST 
50761 C649 FOR. . .NEXT 
50869 C6B5 Statement processor 
50930 C6F2 Statement execute 
50957 C70D RESTORE 
50972 C71C STOP 
50974 C71E END 
51013 C745 CONT 
51056 C770 CLR 
51061 C775 RUN 
51072 C780 GOSUB 
51101 C79D GOTO 
51146 C7CA RETURN 
51184 C7F0 DATA 
51198 C7FE Next line scan 
51232 C820 IF 
51251 C833 REM 
51267 C843 ON. . . GOTO/GOSUB 
51299 C863 Number fetch 
51357 C89D LET= 
51484 C91C Digit check 
51583 C97F PRINT* 
51589 C985 CMD 
51615 C99F PRINT 
51751 CA27 Print string 
51780 CA44 Print character 
51831 CA77 Input data error 
51871 CA9F GET 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 


Sample Value 


Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 










51910 CAC6 INPUT* 










51936 CAED INPUT 










51991 CB17 Input prompt 










52004 CB24 READ 










52242 CC 12 Error messages 










52278 CC36 NEXT 










52370 CC92 Format checker 










52408 CCB8 Expression evaluator 










52538 CD3A Stack argument 










52637 CD9D Symbol evaluator 










52668 CDBC Pi 










53105 CF71 DIM 










53207 CFD7 Variable table 










look-up 










53415 D0A7 Floating-to-integer 










53860 D264 FRE 










53880 D278 Integer-to-floating 










53893 D285 POS 










53909 D295 DEF 










54089 D349 STR$ 










54724 D5C4 CHR$ 










54744 D5D8 LEFTS 










54788 D604 RIGHT$ 










54799 D60F MID$ 










54868 D654 LEN 










54883 D663 ASC 










54917 D685 VAL 










55014 D6E6 PEEK 










55033 D6F9 POKE 










55042 D702 WAIT 










55080 D728 Subtraction 










55103 D73F Addition 










55487 D8BF LOG 










55552 D900 Multiplication 










55646 D95E Load number to 










AFAC 










55650 D962 Load variable to 










AFAC 










55780 D9E4 Division 










55924 DA74 Load Accumulator 










(FAC) 










55928 DA78 Load variable to FAC 










55979 DAAB Store variable from 










FAC 










56075 DB0B SGN 










56106 DB2A ABS 










56222 DB9E INT 










56868 DE24 SQR 










56878 DE2E Raise AFAC to 










power FAC 










56992 DEA0 EXP 










57157 DF45 RND 










57246 DF9E COS 










57253 DFA5 SIN 










57326 DFEE TAN 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 



Decimal 



Hexadecimal 



Sample Value 



Decimal 



Hexadecimal 



Description 



57344-59391 



58004-58986 



58987-59012 
59013-59198 
59199-59227 
59228-59348 



59408 
59409 



59410 

59411 

59424 
59425 

59426 

59427 



E000-E7FF 



Screen Editor 
Starting Address Function 



E294-E66A 



57416 E048 
57525 E0B5 

57910 E236 
57981 E27D 
Video driver 

58282 E3AA 
58346 E3EA 
58185 E349 

58346 E3EA 
58713 E559 
58758 E586 



ATN 

Initialize BASIC 
system 
Clear screen 
Character fetch 

Scroll processor 
Video display routine 
Quote mode ($EA) 
switcher 
Print character 
Scroll 1 line 
Interrupt Request 
(IRQ) 



E66B-E684 
E685-E73E 
E73F-E758 
E75C-E7D4 



Interrupt handler 
Clock update 
Keyboard scan 
Keyboard encoding table 



Page 233-240 I/O Ports and Expansion I/O (PIA's and VIA) (59392-61439) 

Keyboard PIA (59408-59411) 
I/O Port A and Data Direction register 
Control Register A — screen blanking 
52 = Screen off (blanked) 
60=Screen on 
I/O Port B and Data Direction register 
255=all keys except: 
254=RVS key 
2 53= key 
251=SPACE key 
247= < key 
Control Register B — #1 cassette motor 
53=motor on 
61 = motor off 

IEEE Port PIA (59424-59427) 



E810 

E811 



E812 



E813 



E820 
E821 

E822 

E823 



233 
60 



255 



61 



255 
188 

255 

60 



E9 
3C 



FF 



3D 



FF 



BC 



FF 



3C 



I/O Port A and Data Direction register 

PEEK (59424) reads input data. 
Control Register A — set output line CA2 

POKE 59425.52=low 

POKE 59425,60=high 
I/O Port B and Data Direction register 

POKE 59426.data writes output data 

POKE 59426.255 before a read to Port A 
Control Register B — set output line CB2 

POKE 59427,52 = low 

POKE 59427,60=high 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 



Decimal Hexadecimal 



59456 



59457 
59458 
59459 



59460-59461 



59462-59463 
59464 



59465 



59466 



59467 



59468 



E840 



Sample Value 



Decimal 



254 



E841 
E842 
E843 



E844-E845 



E846-E847 
E848 



E849 



E84A 



E84B 



E84C 



59469 


E84D 


59470 


E84E 


59471 


E84F 


61622-61904 


F0B6-F1D0 


61905-63532 


F1D1-F82C 



255 

30 





25248 



65381 
113 



200 



1 



14 




128 
255 



Hexadecimal 



FE 



FF 
1E 
00 



62A0 



FF65 
71 



C8 



01 



00 



0E 



00 
80 
FF 



Description 



Parallel User Port VIA 
(59456-59471) 

I/O Port B 
207 = #2 cassette motor on 
223= #2 cassette motor off 
WAIT 59456.23,23 waits for vertical 
retrace of display 

Bit 1 =PB1 (NFRD on IEEE connector) out- 
put line 

Bit 3=PB3 (ATN on IEEE connector) out- 
put line 

I/O Port A with handshaking 

Data Direction register for I/O Port B 

Data Direction register for I/O Port A 
For each bit 1 =output. 0=input 
=0 all input 
=255 all output 

(Low, high order) Read Timer 1 Counter; 
write to Timer 1 Latch and (high byte) 
initiate count 

(Low, high order) Read Timer 1 Latch 

Read Timer 2 Counter low byte and reset 
interrupt; write to Timer 2 low byte 
PEEK (59464) Clock decrements every 
microsecond 

POKE 59464,n sets SR rate of shift from 
high (n=0) to low (n = 255) for music 
from User Port. 

Read Timer 2 Counter high byte; write to 
Timer 2 high byte and reset interrupt, 
PEEK (59465) Clock decrements every 
millisecond 

Serial I/O Shift register (SR) 
POKE 59466,15 or 51 or 85 to generate 
square wave output at CB2 for playing 
music from User Port. 

Auxiliary Control register. 
= 16 Sets SR to free-running mode for 
music from User Port. 
=0 for proper operation of tape drive 

Peripheral Control register 
= 12 for graphics on shifted characters 
= 14 for lower-case letters on shifted 
characters 

Interrupt Flag register 

Interrupt Enable register 

I/O Port A without handshaking 

Page 241-256 Operating System (61440-65535) 

File Control 
Starting Address Function 

61905 F1D1 Get a character 
(without cursor) 

61921 F1E1 Input a character 
(with cursor) 
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Table G-1. PET Memory Map (Rev 2 ROMs) (Continued) 



Memory Address 




Sample Value 














Description 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 












62002 F232 Display a character 












62026 F24A Close all files 












62121 F2A9 CLOSE 












62250 F32A STOP search 












62278 F346 Tape playback 












62402 F3C2 LOAD 












62481 F41 1 Display filename 












62515 F433 Fetch file number 












62556 F45C Number fetch 












62647 F4B7 VERIFY 












62724 F504 Fetch filename 












62741 F515 Fetch tape character 












62753 F521 OPEN 












62824 F568 Record SAVE routine 












62894 F5AE Tape header search 












62947 F5E3 Clear current tape 












buffer 












62957 F5ED Write tape end block 












63101 F67D Set up tape end 












pointer 












63108 F684 SYS 












63134 F69E SAVE 












63153 F6B1 SAVE memory block 












on cassette 












63273 F729 Update secondary 












jiffy clock 


63533-64789 


F82D-FD15 








Tape Control 

63582 F85E Check for cassette on 
63615 F87F Tape read to buffer 
63684 F8C4 Write block to tape 
63765 F915 Interrupt wait 


64824-65458 


FD38-FFB2 








Power-On Diagnostics 

64824 FD38 System reset 

SYS (64824) simu- 
lates power-on reset 

64909 FD8D Reset BASIC (does 
not affect User Pro- 
gram) 

64912 FD90 EOT-buffer compare 


65472-65516 


FFCO-FFEC 








Jump Vectors 


65472-65474 


FFC0-FFC2 


76 


62753 


4C F521 


JMP OPEN 


65475-65477 


FFC3-FFC5 


76 


62121 


4C F2A9 


JMP CLOSE 


65487-65489 


FFCF-FFD1 


76 


61921 


4C F1E1 


JMP RDT 


65490-65492 


FFD2-FFD4 


76 


62002 


4C F232 


JMP WRT 


65493-65495 


FFD5-FFD7 


76 


62402 


4C F3C2 


JMP LOAD 


65496-65498 


FFD8-FFDA 


76 


63134 


4C F69E 


JMP SAVE 


65499-65501 


FFDB-FFDD 


76 


62647 


4C F4B7 


JMP VERIFY 


65502-65504 


FFDE-FFED 


76 


63108 


4C F684 


JMP SYS 


65508-65510 


FFE4-FFE6 


76 


61905 


4C F1D1 


JMP GETC 


65514-65516 


FFEA-FFEC 


76 


63273 


4C F729 


JMP Clock Update 


65530-65535 


FFFA-FFFF 








6502 Interrupt Vectors 


65530-65531 


FFFA-FFFB 




51808 


CA60 


Non-maskable interrupt (NMD 


65532-65533 


FFFC-FFFD 




64824 


FD38 


System reset (RESET) 


65534-65535 


FFFE-FFFF 




58987 


E66B 


Interrupt request, break (IRQ+BRK) 
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APPENDIX H 



PET Features 



Features of PET BASIC 



Calculator/program modes 

8 commands 

26 statements 

29 functions 

Extended BASIC features 

Strings 

ASCII character representation 

Number representation: Floating point (5 bytes) 

Integer (2 bytes) 
To 9 or 10 significant digits 

Variables up to 255 characters. 2 characters significant 
Mix of 40 and 80 character source lines 
Expression evaluation for statement and function parameters 
Fully programmable graphic keys 
Fully programmable cursor control keys 
Arrays of any dimensions 
Line editor 

Add line 

Delete line 

Change line 
Programmed breaks 
Nested subroutines up to 26 
Tape read/write under program control 
Program overlay capability 
PEEK/POKE to load/store memory bytes 
Programmable system clock for time of day 
Machine language interface 
Fully programmable external I/O capability 
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Chassis 



Operational Features 



Portable, self-contained 

Steel cabinet 

44 pounds 

16VV wide. 18yr deep. 14" high 

I/O connectors for: 

8-bit parallel I/O port 

IEEE 488 interface 

Tape cassette unit 



CPU 



MCS 6502 microprocessor 



Memory 



4K, 8K, 16K. 32K bytes RAM user memory (4K no longer available) 
Programmable 1K screen memory 
14K bytes ROM memory 

Resident BASIC interpreter and operating system 
2K Input/Output 

Expansion ROM 12K additional, total ROM 26K 
Expansion RAM (up to 28K) additional, total RAM 32K 



Keyboard 



Compact keyboard has 73 keys, 2/3 conventional size 

Full-size keyboard has 74 keys including Shift Lock 

140 characters/functions 

2 shift keys 

26 alphabetic keys 

Numeric pad 

28 special symbols 

ASCII characters and symbols all unshifted 

62 graphic keys 

Graphic keys all shifted 

Reverse-field video characters 

Alternate programmable character set 

6 cursor control functions 

Key editing 

Replace characters 

Insert characters 

Delete characters 
Program load and go/stop key 



Video Display Screen 



9" (22.86 cm) high-resolution screen 

1000 character display. 25 lines by 40 characters 

8x8 dot matrix 

Full cursor control 



Tape Cassette Unit 



Built into PET console or externally connected 
Uses standard audio magnetic tape cassettes 
Four tape control keys: 

Play, Fast Forward, Rewind, Record 
Programmable Tape Read/Write 
1000 baud optimal 
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Index 



ABS function, 150 
Add a line. 100 
Addend. 190 
Addition. 63, 190 
Alphabet. BASIC. 53 
Alternate character set, 12 
AND. 66-68 
Animation. 232 
Array Header. 322 
Arrays 

dimensions. 69 

size. 70 
Array storage format, 322 
ASC function. 156 
ASCII, 188. 326 

Assembly Language Programming. 329 
Assignment statement, 52 
ATN function, 150 
Augend, 190 
BASIC. 3 
BASIC commands 

CLR. 83. 112 

CONT, 83. 112 

LIST. 83. 98. 101. 113. 114 

LOAD, 74. 83. 100. 114 

NEW. 83. 117 

RUN. 83. 117 

SAVE. 83. 98. 119 



VERIFY. 84. 120 
Byte. 5 

Calculator mode, 47. 48. 84 
Cassette tape controls. 35 

Fast Forward. 35 

Play, 36 

Record, 35 

Rewind. 35 

Stop. 36 
Cassette tape drive. 32. 33 
Cassette tape unit, hookup. 8 
Cassette tapes 

care of. 39 

pre-programmed. 3. 74 
CHR$ function. 105. 156. 188 
CLEAR SCREEN/HOME key. 25. 26, 
CLOSE statement, 82, 123 
CLR command, 83, 112 
CMD statement. 82. 124 
Concatenating strings. 90, 180 
Console input/output 

GET, 81 

INPUT, 81 

PRINT. 80 
Constants. 320 
CONT command. 112 
COS function, 150 
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Cursor blink enable. 106 
CURSOR LEFT/RIGHT key. 27. 28 
CURSOR UP/DOWN key. 26. 27. 51 

Data block. 251 

Data conversions. 143 

Data file, 74 

DATA statement. 80, 125 

Decision making 

IF. . . THEN, 80 

ON. . . GOSUB, 80 

ON. . . GOTO. 80 
DEF FN. 164 
Defining data 

DATA. 80. 125 

DIM. 80, 126 

LET. . .-. 80 

READ. 80 

RESTORE. 80 
Delete a line, 100 
DELETE key, 107 
Degmagnetizer, 38, 39 
Dimension statement, 71, 80, 126 
Direct mode, 47 
Division, 64 

Editing, screen, 49 
Elements, BASIC, 53 
END statement, 127 
End-of-file mark, 123, 242 
End-of-tape mark, 123, 241 
EXP function, 151 
Exponentiation, 64 

Field, 232 

Field separator, 96 

File input/output 

CLOSE, 82 

CMD, 82 

GET*. 82 

INPUT*. 82 

OPEN. 82 

PRINT*. 82 
File names. 141 

length. 74 

matching. 74 
Files 

data. 232 

program, 232 
Floating Point Array Element Format. 323 
Floating point numbers. 53 
FOR . NEXT statement. 79. 127 
FRE function. 161 
Functions, arithmetic group 

ABS, 71 

ATN, 72 

COS, 72 

EXP, 71 

INT, 71 

LOG, 72 

RND. 72 

SIN, 72 

SGN, 71 

SQR, 71 

TAN, 72 
Functions. BASIC. 71 

arguments, 71 
Functions, format group 



POS, 73 

SPC. 73 

TAB, 73 
Functions, string group 

ASC, 72 

CHR$, 72 

LEFTS, 72 

LEN, 72 

MID$. 72 

RIGHTS. 72 

STRS, 72 

VAL, 72 
Functions, system group 

FRE, 73 

PEEK, 73 

SYS, 73 

Tl$. Tl, 73 

USR, 73 
Functions, user-defined, 73 

GET statement, 81, 103. 129 
GET* statement. 82, 130 
GOSUB/RETURN statement. 79 
GOSUB statement. 131 
GOTO statement. 79. 131 
Graphic character set. 255 
Graphic keys, 13 
Graphic mode. 255 
Graphics. 255 

HOME key, 51 

IF. .THEN statement. 80. 132 

Immediate mode, 47, 78, 84 

INPUT statement. 81. 133. 202 

INPUT* statement, 82, 134 

INSERT/DELETE key, 29, 30, 107 

INT function, 151 

Integer Array Element Format, 323 

Integer Variable Format, 319 

Integers, 57 

Interpreter. PET BASIC. 1. 77. 107. 310 

Item separators, 182, 247 

K, 5 

Key Groups 

Alphabetic, 15 

Cursor control, 25-30 

Function. 21-25 

Graphic, 13, 19, 20 

Numeric. 1 5 

Serial symbols, 16-18 
Keyboard 

Compact, 11,12 

Full size, 11,13 
Keyboard rollover, 167-173 
Keywords, 312 

LEFTS functions, 156. 184 

LEN function, 157. 200 

LET = statement, 80, 135 

Line editor. 310 

Line numbers. 76. 84, 85 

LIST command, 83, 98, 101. 113. 1 14 

LOAD command, 73. 74, 83, 100, 114 

LOG function, 152 

Logical file number, 138. 139 

Memory Map. 308 
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MID$ functions. 157, 184. 200 
Minuend. 202 
Multiplication. 64. 215 

NEW command. 117, 315 

NOT, 66-68 

Numbers 

floating point. 53 

integer. 57 

magnitude. 54, 56 

roundoff, 54 

scientific notation, 54, 143 

ON. GOSUB statement. 80. 136 
ON, , GOTO statement, 80, 136 
OPEN statement, 82, 137 
Operators 

arithmetic, 62 

Boolean, 66 

hierarchy, 65 

relational, 65 
OR. 66-68 

PEEK function. 162 
PET Models. 3. 4, 5 

CBM, 7 

Model 2001-8. 7 

Model 2001-16. 7 

Model 2001-32, 7 
Physical device number. 140 
PLAY key, 116 
Pointer, 308 

POKE statement, 82. 143 
POS function, 159 
PRINT formats, 86 

continuous, 86, 98. 144 

line, 86. 144 

tabbed. 93. 144 
PRINT statement. 58. 80. 86, 143, 185 
PRINT, syntax. 47 
PRINT* statement, 82, 145 
Printer/screen concatenation. 182 
Program mode, 76, 84 
Program storage, 74 
Program termination 

END. 83 

STOP, 83 

WAIT. 83 
Programmed cursor control, 96. 186 

RAM. 2. 5 

expansion, 306 

video, 307 
RAM devices, 42 

removal from PET. 44 
Random numbers. 153 
READ statement, 80. 146 
Read-Only Memory (ROM), 2 
Read/Write Memory (RAM). 2. 74 
READY message. 105 
REM statement. 82. 147 
Replace a line, 100 
Reserved words, 62 
RESTORE statement, 80, 148 
RETURN key, 21, 22 
RETURN statement, 148 
REVERSE ON/OFF key, 22 
RIGHTS function, 158, 184. 194 
RND function. 153 



Rollover. 167-173 
ROM. 2, 5 

expansion. 307 
ROM devices. 43 

new, 5 

old, 5 
Roundoff, 54 

RUN command, 83, 98. 101. 117 
RUN/STOP key, 23-25 

SAVE command, 83, 98. 119 

Scientific notation, 54, 143 

Screen display. 31 

Screen memory, 327 

Secondary address code. 140 

SGN function. 154 

SHIFT key, 21 

SHIFT LOCK key, 21 

SIN function, 154 

6502 microprocessor. 303 

SQR function, 155 

ST function. 162 

Standard character set. 12 

Statement separators, 84. 98 

Statements. BASIC. 78, 123 

STATUS WORD command (ST). 242 

STOP key. 103 

STOP statement, 148 

STR$ function, 158 

String Array Element Format. 323 

Strings. 57, 144, 180 

alphabetic. 182 

concatenating. 180 

graphic. 182 

numeric. 182, 183 
String Variable Format, 320 
Subtraction, 63, 202 
Subtrahend, 202 
SYS function, 163, 331 

TAB function, 160 

TAN function, 155 

Tape head demagnetizer, 38, 39 

Terminal Interface Monitor, 331 

Tl function, 163 

Tl$ function, 163 

Time Delay. 232 

Typeover, 107 

Unconditional branches 

FOR. . NEXT. 79 

GOTO, 79 

GOSUB/RETURN, 79 
User-defined function. 73, 164 
User Program Area. 315 
USR function, 163, 331, 332 

VAL function. 158, 193. 199 
Variables. 14. 58. 317 

display. 49 

floating point. 60 

integer, 60 

name. 14, 59, 61 

string. 61 

value, 14. 59 
VERIFY command. 84, 120 

WAIT statement, 149 
Write protect, 40 
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